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在 交互 式 程序 设计 中 ,菜单 是 人 机 对 话 的 一 种 最 
常用 的 方法 。 人 们 希望 将 菜单 编制 得 既 简单 明了 又 便 
于 操作 ,尤其 是 对 大 型 程序 的 开发 。 下 面 是 笔者 据 
PASCAL 编程 经 验 谈 几 点 体会 。 


一 ` 用 CASE 语句 选择 菜单 

在 PASCAL 语言 中 ,尽管 菜单 的 编制 及 选择 有 多 
种 方法 ,但 CASE 语句 却 格外 引 人 注 目 。 它 的 一 般 形 式 
为 : 

CASE( 表 达 式 )OF 

(常数 表 1 : (语句 1; 

(常数 表 2 : (语句 2; 

《常数 表 n) : (语句 ny》 

END; 
其 中 最 后 一 个 语句 与 END 之 间 不 能 有 分 号 。 在 APPLE 
I PASCAL 中 , 若 表 达 式 的 值 与 常数 表 中 任 一 个 不 相 
-等 时 , 则 程序 执行 CASE 语句 的 后 续 语 句 。 表 达 式 的 值 
可 以 是 整 型 .字符 型 .布尔 型 . 枚 举 型 和 子 界 型 .常数 表 
是 与 表达 式 同 类 型 的 .语句 可 是 单 语句 、 复 合 语句 及 空 
语句 。CASE 语句 的 这 些 形 式 ,为 我 们 编制 及 选择 菜单 
提供 了 多 种 灵活 的 形式 。 如 下 面 例子 ; 
PROGRAM DONG ; 


VAR 
I:INTEGER ; 
BEGIN 
WRITELN( 1. PRINT-.…… 9 
WRITELN( “2. PRINT 关 闪闪 兴 关 兴 ?); 
WRITELN( 3. PRINT 井 并 ## 井 井 7); 
WRITELN( 4， EXIT PROGRAM7 ); 
READ(I); 
CASE I OF 
1. WRITELN( “一 ----- “7 
2. WRITELN( 关 关 闪闪 闪闪 ); 
3. WRITELN( “## 示 林 井 井 ”); 
4.EXIT(PROGRAMD) 
END; 
END， 


例 一 
在 程序 中 ,菜单 有 四 项 ,利用 CASE 语句 对 应 于 四 
种 不 同 的 操作 。 用 这 种 方法 编制 的 菜单 结构 清楚 ,选择 
容易 实现 ,特别 适用 于 分 枝 程序 较 多 的 场合 。 


. 二 、 单 键 菜单 的 选择 方法 
在 上 面 的 例子 中 ,菜单 的 选择 要 按 两 键 才能 实现 。 
而 人 们 比较 专 欢 的 是 只 按 一 次 键盘 就 能 选择 菜单 。 若 
只 使 用 READ 或 READLN 语句 是 不 够 的 ,还 得 借助 于 
APPLE I_ APPLESTUFE 程序 包 中 的 KEYPRESS 函数 。 
KEYPRESS 是 一 布尔 函数 ,不 带 参数 , 若 在 键盘 上 
按键 , 则 此 函数 送 回 一 真 值 , 并 且 保 持 到 一 个 访问 键盘 
的 语句 或 文件 为 止 .对 于 究竟 按 那 一 个 键 , 则 由 交互 文 
件 ( 也 叫 预 定义 文件 )KEYBOARD 来 识别 。 这 样 才 能 利 
用 KEYPRESS 函数 .KEYBOARD 交互 文件 及 CASE 语 
句 来 实现 单 键 菜单 的 选择 。 
请 看 下 面 的 例子 : 
PROGRAM READKEY; 
USES APPLESTUFF; 
VAR 
CH:CHAR; 
BEGIN 〈x* 主 程序 x* ) 
REPEAT 
GOTOXY(0,0); 
WRITELN (“SELECT:,E(dit,R Cun,EF(ile,C 
(omp,LGink,XCecute,QCuit” ) ; 
REPEAT 
UNTIL KEYPRESS;， (〈* 等 待 按键 * ) 
READ (KEYBOARD,CH); (* 则 键入 的 
字符 送 变量 CH* ) 
CASE CH OF 
“E ,ee ;EDIT; 
R” ,5 :RUN; 
“FE， , “ff :FILE; 
4 ,9 :LINK; 
愉 ,“x7 :XECUTE; 
END; 
UNTIL CH IN [CQ , “q7 ]; 
0 (x 程序 其 它 语句 * ) 


(Cx 退出 * ) 


例 二 

只 要 按 下 菜单 提示 中 任 一 键 , 程 序 便 立 即 响应 ,调用 相 
应 的 子 程序 .另外 交互 文件 KEYBOARD 与 INPUT 不 
同 , 它 能 将 执行 KEYPRESS 函数 时 的 键 值 所 对 应 的 字 
母 在 屏幕 上 不 显示 ,这 对 输入 口令 的 保密 性 也 是 非常 
有 用 的 。 

上 面 介绍 的 菜单 编制 技巧 中 , 例 一 在 选择 菜单 时 ， 
由 于 要 按 两 键 及 字符 在 屏幕 上 显示 ,所 以 给 人 有 一 次 
确认 的 机 会 ; 例 二 的 方法 由 于 输入 字符 不 显示 ,就 要 求 
选择 菜单 按键 时 准确 无 误 。 如 果 我 们 还 调用 APPLEI 
程序 包 中 的 过 程 NOTE 及 PENCOLOR , 则 可 使 APPLE 
扬声器 发 声 , 生 成 音乐 ,屏幕 改变 颜色 .这 样 就 可 给 菜 
单 配音 配色 ,使 它 在 不 同 的 情况 下 发 出 不 同 的 声音 和 
颜色 , 那 时 程序 的 运行 将 会 更 加 生动 活泼 。 
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众所周知 ,中 华 学 习 机 及 APPLE 机 等 高 分 辩 图 形 
页 面 和 文本 方式 不 相 兼容 ,因而 在 绘制 好 的 图 形 上 无 
法 加 注 文字 、 字 符 或 符号 ,这 对 美 画图 形 画面 ,丰富 图 
形 信息 是 一 种 不 足 。 

为 了 解决 上 述 问 题 , 本 文 提供 一 个 较为 新 颖 的 通 
用 工具 软件 ,用 造型 表 的 功能 , 按 ASCII 码 字符 的 顺序 
设计 了 94 个 ASCII 字符 及 两 个 特殊 符号 的 造型 数据 ; 
并 设计 了 一 个 机 器 语言 调用 造型 的 程序 ,两 者 配合 使 
用 ,从 而 使 任何 含有 高 分 辩 作 图 的 程序 中 ,在 图 形 画面 
的 任意 位 置 上 加 注 文字 内 容 , 使 图 形 表达 的 信息 更 加 
丰富 , 便 画 面 显示 更 为 生动 ,基本 上 达到 了 “图 文 并 茂 ” 
的 效果 。 

、 一 .ASCI 码 字符 造型 表 ( 程 序 一 ) 

$6000 一 $64D3 为 造型 表 , 其 中 $6000 一 $60C1 
为 造型 表 索 引 , $ 60C2 一 $60D3 为 96 个 造型 数据 。 所 
有 单元 内 容 已 严格 按 造 型 表 结 构 顺 序 存 迪 如， 


6000:60 ;造型 的 个 数 
$$6001:00 ; 按 规定 空 着 ,用 00 填 补 
$$6002:C2 00 ;等 1 个 图 形 定义 的 偏 移 地 址 


$6004:C8 00 ;第 2 个 图 形 定义 的 偏 移 地 址 


$$60C0:C8 00 ;最 后 一 个 图 形 定 义 的 偏 移 地 
址 

有 60C2 一 $$60C6 ;第 1 个 造型 数据 “1!?” 

叫 60C7;00 ;第 1 个 造型 结束 标志 

$$60C8 一 $60CB; 第 2 个 造型 数据 ,“,” 

$60cC:00 ;第 2 个 造型 结束 标志 


$64C8 一 $64D2 ;最 后 一 个 造型 ， 个 ” 
$64D3:00 ;最 后 一 个 造型 结束 标志 

二 、 调 用 造型 表 的 机 器 语言 程序 (程序 二 ) 

$300 一 $32B 单元 为 一 个 通用 的 调用 造型 表 的 
机 器 诸 言 程序 ,其 最 大 特点 有 二 :其 一 调用 多 个 造型 速 
度 很 快 ; 其 二 对 任何 按 规则 存放 的 造型 表 都 可 调用 , 通 
用 性 好 .造型 表 起 始 地 址 应 放 在 $E8, $ E9 两 个 单元 。 
颜色 代码 放 在 X 暂 存 器 中 ,并 通过 $F6F0 开 始 的 机 器 
语言 子 程序 来 实现 .造型 放大 值 存 在 $E7 单 元 .造型 
序号 ( 即 第 几 个 造型 ) 也 放 在 X 暂 存 器 中 ,通过 $$F730 
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开始 的 机 器 语言 子 程序 实现 .造型 显示 位 置 的 确定 则 
通过 调用 $F411 的 子 程序 ,而 在 调用 前 ,应 将 显示 起 
友 位 置 水 平 坐 标 低位 放 入 X 暂 存 器 ,高 位 放 入 立 寄 存 
器 , 重 直 坐标 放 入 累加 器 A 中 。 旋 转 值 放 入 累加 器 
中 ,造型 向 量 绝 对 地 址 低 、 高 位 分 别 放 入 X\Y 暂 存 器 
中 (其 值 为 零 页 地 址 $1A、$1B 中 的 内 容 ), 最 后 通过 
$F65D 子 程序 显示 造型 。 

三 、 一 个 BASIC 程序 调用 实例 (程序 三 ) 。 

程序 三 是 一 个 用 BASIC 语言 编制 的 图 形 加 注 字 
符 的 实例 ,其 中 造型 调用 语句 DRAW 后 面 的 参数 为 第 
几 个 造型 ,AT 后 面 的 值 为 在 屏幕 上 显示 的 X.Y 坐标 ， 
其 中 HGR2( 或 HGR) 是 不 可 缺少 的 ,否则 会 在 X= 
128,Y 一 50 位 置 上 显示 ASCII 码 第 一 个 字符 “!2”( 见 
$0319 一 $0321) 。 运 行程 序 三 前 ,必须 将 程序 一 、 二 分 
别 调 入 内 存 。 

四 96 个 ASCII 码 造 型 (图 1) 

图 1 中 的 造型 自 左 至 右 、. 自 上 至 下 分 别 为 第 1 个 ,第 
2 个 造型 ，……… ,第 96 个 造型 .可 以 仿照 程序 三 的 方法 ， 
在 高 分 辩 率 作 图 画面 上 选用 您 需要 的 造型 。 

程序 一 


其 各 DODDu 名 妇 D7 


ED oo 


ooo-~ ep Do Ca oo 6C8 oo 

GDoDB-~- DD Oo EC Oo FS Oo D7 Di 
oolo- oOB ol 14 Dll 1B ol 23D Di 
在昌 1 和 一 玉 6 Gd SG50 4 OO1 46 0 
oo2o- 4E DO S5D Dll 65 0D1 71 0 
ooe2gB- 7C Dll 88 01 95 Dll A2 Oil 
3 ARB Di BO oO CO6 ol CB Di 
ceo3sgB~ Di Dll DA ol E2 oO EA ol 
白 避 入 下 本 1 DO os OE oa 1LD DO 
各 D4 昌 一 日 0 4 OOR 43 03 4E aa 
OO SC DO 69 03 71 03 7A OO 
回避 本 日 一 妆 7 虽 和 生 E 吕 生 呆 六 全 后 呈 “ 扣 呈 
所 曲折 虽 了 4 日 有 CO DR DR DR ER OO 
丰 O 丰 中 FOODOR FS8 0O2 OO5 OO3 1 oO 
07 1F 03S 2D DSS 7 QOS 42 0 
OoD7 昌 ~ 4 避 与 O 〇 O 57 0O3 SF OO3S 
DB8O- 66 了 603 35 0 了 93 oO 
oogsgB- SF 0O3S 93F 03 8D ODS B7 DSS 
GOD930 CA ODS D5 03 DD 6 E7 D| 
OOD9 宁 8 F2 OS F3 0 DB OO4 14 4| 


白 口 用 口 一 





白 口 肥 归 一 瑟 王 


各 局 司 亿 一 
GODRSB- 
CD-- 


edce- 


名 世 了 D 口 一 
GOD 日 - 
白 吕 下 局 一 
白 避 E 名 一 


加 总 亡 一 了 


白 避 FF 日 一 
名 井口 一 


白 1 OO8-~ 、 


白 1 寺 名 一 


如 11 各 一 


名 1 2 
白 12 一 
个 10 
折 半 了 旬 一 
折 半 人 避 一 
白土 生 日 一 


白 址 二 了 


白 二 全 一 
1 一 


6l68- 


如 7 人 一 
如 17 如 一 
人 半日 已 一 
如 寺 名 吕 一 
和 1 一 
el98-~ 
伯 二 全 口 一 
白 工 全 旨 一 
[ 折 业 BO 一 
如 1 BBS- 
白 芋 CC 一 
oOlC8-~ 
LOlDO- 
lpD8-~ 
tlEO- 
和 1E 台 一 
白 1F 记 OO 一 
如 1F 全 一 

中 吕 吕 一 
白 口 名 一 
O21o- 
和 圣人 一 
加 中 们 口 一 
各 之 局 昌 一 


= 


O4 
3 


椰 六 


加 口 


2 
1 
总 癌 
公信 
7 
本 台 
1 
9 


人 

-~ 

人 

人 如 
人 
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袜 D 


名 4 
如 人 媳 
) 舍 
二 太 
旧作 
忆 蕊 
全 了 
FF 
忆 合 
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> 业 
人 


人 
< 


世人 


1TF 


也 白 


二 己 


5 


me 


芝 玉 : 计 


“ 


ay 


二 半 


号 后 


人 


上 上 
忆 白 


人 “ 


人 
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1E 所 


2D 
SF 
2C 
2D 
SB 
CC) 
OS 
SF 
29 


四 


加 


OO 


-全 呆 


避 OO 
人 人 
加 
OG 
本 FF 

1 


当 
心 


-二 世 


2D 


局 避 
只 < 


4 


可) 
SF 
8 
B2 
品 呆 


21 
2D 
本 
必 
2 
让 
了 
wm 
也 了 
人 
m 心 


SF 
2 
区 
OO 
20 


1E 
口 O 


元 


1 


要 1 


避 口 
人 7 
1F 
17 
E 
马 品 
也 了 


my 
中 


口 4 
总结 
总 奸 
全 夺 
卫 和 
也 信 
蕊 
又 吕 
玉 丛 
OO 
局 台 
局 DD 
全 9 
品 吕 
DO 
门 避 
3F 


DO 


上 攻 
OO 


半空 


却 吕 


又 上 


也 了 
二 7 


如 休 
2 
1B 
28 
15. 
二 


OC 
号 吧 
1 碟 
12 


鸣 吧 
3 


2D 
1 
28 
人 及 


人 沁 
2 


17 


SA 


避 9 
全 作 
SF 


白 到 


也 户 
9 


书后 
节 白 
品种 
FF 
总 已 
了 了 
所 己 


O3 


CD 
9 
也 
已 D 
SA 
牛马 
李白 
1 二 
节 革 
口 各 


<“ 


人 人 
心 合 


已 C 
ee 


OO 


已 二 
口 信 
已 嫩 
品 引 
1 之 
局 可 
下 


区 
必 


29 3 


2 
35 
17 
号 
1E 


3A 
29 
12 
已 侣 
26 
全 癌 
总 人 
20 
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人 031D-  A9 32 LDA 并 帅 32 
U5 D0 36 0D <D < “6 二 031F- 20 11 F4 JSR $F411 
1B 24 2C 05 60 09 IE 286 0 Ab6 1A 1 
人 用 50072095 汪 | 人 人 全 DR 人 
36 3SE 1B 33 29 2D 00 36 0326 Ag 00 人 
QD 汪 1 B DO 0328- 20 5D F6 JSR $F65D 
29 00 29 36 36 3E 28 2D 02p 60 AT 
oo 12 2D 29 SA 3B 33 OD 程序 三 
站 460- DODD 3E 有 对 本 本 癌 CD 号 避 昌 台 100 CALL 768 
和 40B-- 12 DD RD 3 TB 37 3 OOD 110 HGR2 
和 入 二 和 一 日 吕 呈 全 昭和 人 站 寺 有 了 D 120 HPLOT 140,40 TO 100,120 To 1 
41 日 瑟 和 了 FF 间 世 和 加 口 妆 辣 妆 可 80,120 TO 140,40 
Gd420-- 15 IF 3B 2E OO9 3 1F SB 130 DRAW 41 AT 140,30 
和 438- RE 29 15 18 41B 3 6 140 DRAW 42 AT 90,120 
43D- DA 32D 了 1 SF 1B 2E OO9 1 150 DRAW 43 AT 185,120 
白 寻 归 一 FF TB OE 2D 有 站 口 半 全 160 FOR I= 王 1 TO 3000: NEXT 
6440- DD 2D SA 1B 37 36 De6 DO 170 DRAW 59 AT70,10 
6448- 12 29 2D 1E 1B 33 29 2D 180 DRAW 23AT80,10 
白 媳 呈 O 全 本 BF OO7 虽 玉 1 人 D 有 190 DRAW 24 AT 90,10 
6458- SF OOE SO DOE QC 5 吕 让 二 归 200 DRAW 25 AT 100,10 
G460- 36 36 29 0DD SC DC 32 D4 20 DRAW6IAT110,10 
6468- 0D 1 3 DOE PE DC DC 324 220 FORI1TO3000: NEXT 
647D- 04 0D 12 36 5336 29 29 38 30 TEXT: HOME: END 
6478-- 23 0OD 24 04 DO 12 0D D9 
64B0- IE 41F oOE 15 IF 17 Do 扩 驯 Ph 
64B8- 05 00 32 36 12 6E 2D OC 了 了 人 
6490- 24 24 SC 42 38 SF 00 12 4 
4a498- 2D 2D EtE IE 47 2D,2D  ， ae 
人 IJKLMNOP Q R 
四 年 月 各 一 站 站 虽 介 是 呈 号 SsSTuvwxvz TAN 
自 4 入 闪 生 牛 区 可 王 D 号 3 人 
64B0- 06 00 29 15 36 31 3533IE 
丰 嫩 有 日 一 让 站 富有 亲口 条 
折 寻 [站 六 全 DOGD 1 本名 总 避 
站 外 妆 归 一 中 果 是 可 闪 人 图 1 
各 寻 世 人 二 RBF OO DO 站 人 吕 人 人 ttteretr 
程序 二 
0300- 20 E2 F3 JSR 下 F3E2 更 正 
0303-  A9 00 LDA ## 册 00 本 人 在 贵 刊 今年 第 六 期 第 十 六 页 上 刊登 了 一 篇 
0305- 85 E8 STA $E8 《文本 第 二 页 使 用 技巧 》, 此 文中 有 一 些 错 误 , 现 更 正如 
0307- 。 A9 60 LDA 夫 册 60 下 : 
0309- 85 E9 STA $E9 行 误 正 
030B-， A2 03 LDX 打 $$03 左 十 二 行 30 E0 
030D- ”20 F0 F6 JSR $F6F0 左 十 八 行 VSR USR 
0310- 。 A9 01 LDA 失 $$01 左 倒 十 五 行 VSR USR 
0312- ”85 BE7 STA $E7 左 倒 十 七 行 VSR USR 
0314- 。 A2 01 LDX 并 册 01 左 倒 八 行 DSR USR 
0316- 20 30 F7 JSR $F730 右 倒 四 行 VSR USR 
0319- 。 A2 80 LDX #$80 右 九 行 VSR USR 
031B- 。 A0 00 LDY 井下 00 祝 向 权 





“程序 剖析 与 编程 技巧 ， 


加 上 自己 的 软件 封面 


西安 市 ”第 八 十 九 中 学 


ACE 工具 软件 自 推出 以 来 ,以 它 可 靠 ,方便 、 易 
开发 、 易 维护 等 特点 , 越 来 越 受到 广大 青少年 计算 机 爱 
好 者 的 青睐 .其 中 不 少 人 已 经 用 ACE 开发 各 种 软件 。 
这 次 在 广东 省 惠州 市 举办 的 全 国 青 少年 计算 机 冬令 营 
比赛 中 ,就 有 不 少 代表 队 用 ACE 工具 软件 开发 了 “高 
空 跳伞 ?辅助 教学 软件 ,达到 了 很 好 的 效果 ,并 在 比赛 
中 获奖 。 

但 是 , 当 软 件 编 好 以 后 ,每 次 起 动 总 会 出 现 ACE 
工具 软件 的 封面 。 这 些 文字 加 在 自己 的 软件 前 面 ,显然 
是 不 合适 的 .为 此 ,我 特意 编写 了 下 面 这 段 程序 ,运行 
以 后 ,就 可 为 自己 的 软件 换 上 喜爱 的 封面 。 

这 里 就 编程 前 后 的 思路 和 编程 的 过 程 作 一 介绍 。 

首先 ,封面 是 一 个 图 形 ,如 果 不 经 过 处 理 存在 磁盘 
上 ,会 占用 33 个 扇 区 。 但 ACE 工具 软件 的 封面 在 11 磁 
道 文件 名 中 没有 记载 ,也 就 没有 “磁道 / 扇 区 ” 表 , 实 际 
在 磁盘 中 占用 了 32 个 扇 区 。 所 以 要 改变 它 , 就 得 把 这 32 
个 扇 区 在 磁盘 中 的 位 置 找 出 来 .用 COPY I PLUS5. 1 中 
的 SECTOR EDITOR 功能 发 现 ,从 2 磁道 第 3 扇 区 到 4 破 
道 第 2 扇 区 一 共 32 个 扇 区 类 似 图 形 文件 .所 以 编写 了 这 
一 段 程序 ,将 内 存 中 的 图 形 依次 写 入 以 上 扇 区 .运行 以 
后 ,经 过 重新 起 动 ,证 明 此 程序 是 正确 的 。 

程序 运行 后 , 当 出 现 “PICTURE NAME:” 时 ,输入 
将 做 封面 的 图 形 文 件 名 ,并 插入 磁盘 .。 按 “Y” 键 开始 调 
入 图 形 。 当 图 形 出 现在 屏幕 上 以 后 ,按键 回 到 文本 状 
态 , 这 时 插入 ACE 系统 盘 , 再 按键 就 会 将 内 存 中 的 图 
形 写 到 磁盘 中 。 

在 驱动 器 工作 时 如 出 现 连 续 的 “ 哪 、. 哪 、. 哪 ……? 响 
声 ,就 说 明 磁盘 出 现 错误 (如 写 保 护 .I/O 错误 等 ) 这 
时 应 认真 检查 , 当 确 信 各 种 错误 都 排除 以 后 ,再 按 以 上 
步 又 重新 操作 一 次 。 

下 面 将 程序 各 部 分 功能 作 一 说 明 。 

100 回 到 文本 状态 ,清除 屏幕 

110 建立 机 器 语言 子 程序 ,IOB 表 ,DCT 表 ; 

120 一 170 ”输入 正确 图 形 名 ; 

180 一 220 调 入 图 形 , 并 显示 在 屏幕 上 ; 

230 一 270 回 到 文本 状态 ,在 提示 下 等 待 按键 ; 

280 一 330 ”将 喇 分 辩 率 第 一 页 的 图 形 写 入 磁盘 指 

定位 置 ; 

340 一 370 ”结束 ; 

400 延 时 子 程序 


240  VTAB 20 : 


王 兵 


1000 机 器 语言 数据 。 

如 果 要 将 内 存 中 高 分 辩 率 第 一 页 的 图 形 直接 写 入 
ACE 系统 盘 , 可 先 键入 DEL 120,270, 然 后 再 运行 程序 
即 可 。 

100 TEXT ; HOME 
110 FOR I=-0 TO 28: READ A: POKE 768 十 I,A， 


NEXT 
120 VTAB 8: HTAB 6: INPUT“PICTURE NAME :”; 
Ay$ 
130 IFA$ =“ ?THEN 120 
140  VTAB 12: HTAB 6: PRINT“(Y/Ny:”; ;HTAB 
12: GET B$ 


150 IFB 和 $ <<>>“YvY”AND B$ 一 >“N”THEN 140 
160 VTAB 12: HTAB 12， PRINT BV$ 
170 IFB$ = “N” THEN 120 
180 “PRINT : PRINT CHR $ (4)“BLOAD”A 和 “ ,和 
$2000” 
190 POKE - 16304,0 
200 POKE -16297,0 
210 POKE - 16302,0 
220 POKE - 16300,0 
230 GET BV$ 
PRINT “INSERT DESTINATION 
DISK”，VTAB 22，HTAB 20:， PRINT “AND 
PRESS ANY KEY”; “ 
250 POKE - 16303,0 
260 POKE - 16300,0 
270 HTAB 37:GET A 有 $ 
280 POKE 780,2: POKE 781,3 
290 FOR I 一 32 TO 63:, POKE 785,I 
300 CALL 768: IF PEEK (789) 忆 >> 0THEN PRINT 
CHR$ (7) ;CHR y$ (7J3CHR 和 $ (7); 
310 POKE 781,， PEEK (781) 十 1 
320 IF PEEK (781) 王 16 THEN POKE 781 ,0:POKE 
780,PEEK (780) 十 1 
330 NEXT 
340 FORI 王 1TO 13:， PRINT : GOSUB 400:， NEXT 
350 PRINT TAB( 17)“THE END” 
360 FOR I = 1 TO 11:, PRINT , GOSUB 400, NEXT 
370 END 
400 FORJ 王 1To50:NEXT : RETURN 
1000 DATA 169,3,160,8,32,181,183,96,1,96,1， 
254,2,3,25,3,0,32,0,0,2,0,254,96,2,0,1， 
254,216 
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CEC 一 [汉字 系统 剖析 


贵州 省 铜仁 一 中 高 二 (5) 


随 着 中 华 学 习 机 的 广泛 普及 ,人 们 对 CEC 一 I 汉字 
系统 的 了 解 也 越 来 越 多 .但 在 分 析 和 阅读 汉字 管理 程 
序 时 , 遇 到 的 难题 往往 是 不 知道 某 些 工 作 单 元 及 子 程 
序 的 意义 ,从 而 大 大 降低 了 阅读 速度 .为 了 使 大 家 能 更 
好 地 利用 汉字 系统 ,本 文 列举 了 汉字 系统 的 主要 工作 
单元 , 子 程序 以 及 它 的 内 存 分 配 情况 。 

1 汉字 系 统 的 内 存 分 配 。 汉 字 系 统 占用 了 辅 存 
ROM 空间 及 部 分 主 存 空间 ,其 分 配 情况 见 表 1 





表 1 
辅 存 ROM 


















$ 4000- $7FFF 汉字 字库 
拼音 码 表 


$00-$FF 系统 零 页 单元 


汉字 系统 工作 单元 











$38F-$ 3CF $ 9400- $BFFF 















$ 4000- $ 5FFF 字符 显示 区 $EC00- $FFFF 





汉字 管理 程序 








$9200- $ 94CF 屏幕 字符 映射 区 











$ 94D0- $ 94F1 字符 点 阵 信 息 暂 存 区 




















$$94F2- $$ 94FF 汉字 系统 工作 单元 


























$$C300-$C3FF 汉字 接口 程序 





2 汉字 系统 部 分 工作 单元 。 阅 读 时 注意 ,这 里 列 出 


的 只 是 这 些 单元 的 主要 意义 ,在 不 同 的 汉字 子 程序 中 ， 
工作 单元 的 意义 可 能 会 有 所 不 同 。 见 表 2 










$ 3B6 


$39A-$ 39F 


表 2 


字符 区 指针 








ETIDEEITTITY 天 


$3A2-$3AD 汉字 区 


8 



















马 维 达 
3、 部 分 子 程序 ( 表 3、 表 4)。 调 用 这 些 程序 时 应 注意 


它们 都 位 于 辅 存 ROM 中 ,调用 时 应 先 用 JSR $C3AB 
切换 到 辅 存 ROM ,调用 完毕 再 用 JSR $ C3B9 切 换 回 主 
存 。 


表 4 列 出 的 是 与 4 中华 学 习 机 CEC 一 I 技术 参考 手 


册 ( 软 件 )》 第 四 部 分 附录 A 中 的 各 处 理 程序 框图 相对 
应 的 入 口 地址 。 


表 3 


取出 与 显示 代码 害 存 器 中 代码 相对 应 的 字符 


国有 天 点 阵 , 送 入 字符 点 阵 信息 暂 存 区 
$FOAD ”| 将 字符 点 阵 暂 存 区 中 的 ASCII 字符 送 图 象 显示 区 显示 


将 字符 点 阵 暂 存 区 中 的 汉字 送 图 象 显示 区 显示 














翻滚 屏幕 









将 字符 点 阵 暂 存 区 清 零 
将 汉字 内 码 送 入 屏幕 映射 区 







将 ASCII 码 送 入 屏幕 映射 区 


CV($25) * 17 送 入 $ 3CD 单元 









根据 ($ 3CD) 计 算 屏幕 坐标 对 应 的 地 址 送 入 















$26, $ 27 单 元 


$F3F1 屏幕 翻滚 处 理 
产生 光标 ,等 待 按 鱼 


表 4 
名 


地 址 称 “ 
$c300 汉字 系统 启动 程序 



















ASCII 字符 显示 程序 

控制 字符 处 理 程序 

可 显示 字符 处 理 程序 
控制 键 处 理 程序 


拼音 方式 处 理 程序 
区 位 方式 处 理 程序 
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态 锋 从 用 弥 开 


湖北 省 孝感 教育 学 院 


本 文 介绍 名 额 ,席位 等 问题 的 分 配 模型 及 其 计算 
程序 .其 基本 问题 是 :有 N 个 名 额 要求 合 理 的 分 配 到 
M 个 组 中 ,每 组 人 数 分 别 为 A(1),A(2)…ACm) ,那么 
怎样 分 配 才 算 合理 呢 ? 


一 ”惯例 分 配 模型 
惯例 分 配 模 建 立 的 思想 是 : 先 求 每 组 人 数 在 总 人 
数 中 所 占 的 百分比 然后 再 按 比 例 分 配 人 数 。 如 果 出 现 
小 数 , 先 按 整数 部 分 分 配 , 再 将 剩余 的 名 额 按 小 数 部 分 
从 大 到 小 分 配 ,具体 分 配方 法 见 下 表 , 这 里 假设 有 20 个 
席位 


站 站 下 本 有 
四 中 二 EEC SEE 
加 二 
网 mw 


按照 这 个 思想 可 建立 一 个 计算 程序 ,以 实现 自动 
计算 ,这 个 程序 是 
5 REM MXI1 
10 INPUT“M 一 ”ME 
15 INPUT“N=”;N 
20 DIM A(M) ,C(M) ,D(M) ,ECMD) 
25 FOR I=1TO M 
30 INPUT A(D 
35 S=S 十 A(D 
40 NEXTI 
45 FOR I 一 1TO M 
50 CCD=N x* A(CDVS 
55 DGD=INTCCCD) : 
60 E(D= CCOD-D(D 
65 NEXT 1 
70 IFEF=N THEN 125 
75 FOR I=1 TO M-1 
80 FOR J=IT+1TO M 
85 IFEGD)<E(CJ) THEN 110 

















FE 一 F 十 DCD) 





90 NEXTIJ 

100 F=F 十 1 

105 IF F=NTHEN 125 

110 NEXTI 

115 DCM)=DCM) 十 1 : ECM)=0 

120 F=F 十 1 : IF F=-N THEN 125 : GOTO 75 


125 FOR I 一 1 TO M 
130 PRINT 工 ;一 ”DCD) 
135 NEXTI 
140 END 

现在 运用 这 个 程序 来 运算 M 一 3 N 一 21 
=103 A(2) 一 63 A(3) 一 34 

运算 后 得 知 第 一 组 分 到 11, 第 二 组 分 到 7, 第 三 组 
分 到 3, 把 这 个 结果 同 表 中 结果 比较 可 知 在 席位 增加 一 
席 的 前 提 下 ,第 三 组 分 得 的 席位 反而 减少 了 一 席 , 这 实 
在 有 悖 常理 ,因而 可 对 这 个 模型 作 一 定 的 修改 。 


A(1) 


二 “相对 分 配 模型 

通过 考察 不 公平 的 程度 ,发 现 用 相对 不 公平 代替 
绝对 不 公平 更 合理 些 ( 详 见 @) 这 样 就 有 了 相对 分 配 模 
型 ,这 种 模型 建立 的 思想 是 : 设 Ai 方 的 人 数 A(D ,已 
占有 G(CD 个 席位 (Gi=1.2…m), 当 总 位 席 增加 1 席 时 计 
算 B(D =A(D2/G(CGD * (G(CD 十 1) 则 这 一 席位 分 给 B 
值 最 大 的 哪 一 方 . 计 算 从 G(D=1 开 始 , 即 每 方 至 少 应 
分 到 一 个 席位 ,用 这 个 模型 可 建立 如 下 的 计算 程序 。 
5 REM MX2 
10 INPUT“M,N 一 ”;M;N 
15 DIM A(M) ,B(M) ,G(M) 
20 FOR I 王 1 TOM 
25 INRUT A(I) 
30 G( 三 ] 
35 NEXT 1 
40 FOR I 王 1 TO M 
45 B(GD 王 A(GD x*A(G) /(GGD * (G(CD 十 1)) 
50 NEXTI 
55 FOR I= 王 1 TO M 一 1 
60 FOR J 王 I 十 1 TO M 
65 IF BG) <B(J) THEN 80 


70 NEXTJ 
75 G(CD=G(CD 十 1 ， 
80 NEXTI 
85 GCM)=GCOM) 十 1 
90 D=D+1l 
95 IF D<N THEN 40 
100 FOR I 一 1 TO M 
105 PRINT LI “一 ”;G(D 
110 NEXT 1 
115 END 

再 输入 N 一 21,M 一 3,A(1) 一 103,A(2) 一 63, 和 
(3)=34 就 可 知 第 一 组 分 别 11 个 ,第 二 组 分 到 6 个 ,第 
三 组 分 到 4 个 ,这 样 就 保住 了 第 三 组 差 一 点 丧失 的 席 
位 。 


GOTO 90 





三 .d' Hondt ”模型 

这 个 模型 是 由 比利时 人 创造 的 ,其 模型 建立 的 思 
想 是 :将 A(1),A(2)…A(C(M) 都 用 1、.2、.3… 正 整数 相 
除 ,将 商 从 大 到 小 排列 ,并 取 前 N 个 最 大 者 .如 果 这 N 
个 数 中 有 G(D 个 是 第 A(CD 组 被 整数 相 除 所 得 商 , 则 和 
〈D 组 分 到 G(D 个 席位 用 这 样 模型 建立 的 计算 程序 
是 : 
5 REM MX3 
10 INPUT“M,N 一 ”;M;N 
15 DIM A(M) ,B(M) ,GCCM) ,FMD 
20 FOR I 一 1 TOM 
25 INPUT A(D 
30 G(CD=1 : NEXT 
35 FOR I=-1 TOM :, BID 一 A(DVG(CD ， 
40 FOR I=1TOM 一 1 
45 FOR J 一 I 十 1 TOM 
50 IF B(D<B(GJ) THEN 60 , NEXTJ 
55 G(GD 王 GD 十 1 , FCGD=FGD 十 1 , GoTO 70 
60 NEXTI 
65 GOM =GCOMD 十 1 
70 D=D+1l 
75 IF D<N THEN 35 
80 FOR I=170 M ;, PRINT I; “一 
85 END 

一 般 来 说 是 有 N 二 M 可 用 MXI 或 N<M 时 可 用 
MX1 或 MX3 


NEXT 


: FF(M) 王 FE(OMD) 十 1 


”FE(ID : NEXT 


参考 资料 
《数学 模型 } 姜 启 源 编 ,高 教 出 版 社 出 版 


.程序 剖析 与 编程 技巧 。 
巧 用 BASIC 处 理 多 项 式 除 以 多 项 式 


黑龙 江 呼 兰 师 专程 显 敦 


由 高 等 代数 中 的 带 余 除法 定理 ,对 多 项 式 环 pLX] 
中 任意 两 个 多 项 式 f(x),g(x) 其 中 g(x)=0, 一 定 有 了 P 
cx 中 多 项 式 q(x),r(x) 存 在 ,使 fCx) 一 g(x)qCx) 十 r 
(Cx) 

成 立 , 其 中 r(Cx) 的 次 数 比 qCx) 的 次 数 小。 

用 手工 求 q(x) 和 r(x) 是 非常 繁琐 的 ,本 文 介绍 的 
程序 ,只 要 按 通常 的 降 索 顺序 输入 两 个 多 项 式 的 系数 ， 
便 输 出 qCx),r(x) 的 系数 。 

为 了 得 到 求 q(x),r(x) 的 算法 , 先 看 一 个 实例 : 





f(x) 一 3xs? 十 4x2 一 5x 十 6 
g(x) 一 x2 一 3x 十 1 
在 中 学 我 们 是 按 下 面 格式 进行 
x2 一 3x 十 1 3x3 十 4x2? 一 5x 十 6 3x 十 13 一 qOo) 
3x3 一 9x2 十 3x 
13x2 一 8x 十 6 
31x 一 7 一 T(x) 


于 是 求 得 商 qCx)=3x 十 13, 余 式 r(x) 王 31x 一 7 
用 高 等 代数 方法 做 ,其 格式 如 下 


3 14 -5 6 





3 一 13 
9 
二 3 1 
表 1 一 1 f(x) 十 g(x) 的 运算 格式 


从 表 1 一 1 中 可 以 看 出 ,每 条 带 上 的 元 素 是 由 最 下 
面 的 元 素 分 别 乘 以 3, 一 1 得 到 ,最 下 一 行 各 元 素 是 对 应 
各 列 数 的 和 。(3, 一 1 分 别 是 g(x) 的 一 次 项 系数 、 常 数 
项 被 二 次 项 系数 除 的 相反 数 ) 

一 般 地 ,如 果 用 ACN)、.B(M) 分 别 存放 fx) 、.g(x) 
的 系数 .N\M 是 相应 多 项 式 的 次 数 .CCN) 存 放 表 1 一 一 
1 中 最 下 一 行 元 素 , 即 q(x) .r(Cx) 的 系数 ,可 得 如 下 算 
法 : 

1. 输 入 N,M 

2、. 读 A(ON),BCMD) 

3. 令 CON) 王 ACN) 

4. 将 g(x) 的 系数 除 以 g(x) 的 最 高 次 项 系数 的 相 
反 数 存在 数组 bbCm) 中 

5.I 王 N TO N 一 M 十 1 STEP-1 

5. 1. J 王 M 一 1 TO 0 STEP -1 


5.1.1 令 CGI 二 J 一 M) 王 CGID x* BB(ID 十 CCI 十 J 一 

MD) 
6. 打印 q(x) .r(Cx) 的 系数 
7. 结束 

程序 

10 REM 多 项 式 除法 程序 

20 INPUT “输入 被 除 多 项 式 次 数 ”;N 

30 INPUT“ 输 入 除 式 多 项 式 次 数 ”; M 

40 IF N <M THEN PRINT “ 商 为 零 多 项 式 , 余 式 为 
除 式 多 项 式 ”:GOTO 380 

50 DIM ACN),B(M) ,BB(M) ,CCN) 

60 FORI 王 NTO0STEP-1 

70 PRINT “输入 被 除 多 项 式 第 ”;I;“ 项 系数 ” 

80 _ INPUT A(D:CGD 一 A(D 

90 NEXTI 

100 FORI 王 MTO0STEP-1 

110 PRINT“ 输 入 除 式 多 项 式 第 ”;I;“ 项 系数 ” 

120 INPUT B(D :BB(D 一 -B(DVB(CMD) 

130 NEXTI 

140 FORI 王 NTON 一 M 二 1STEP -1 

150 FOR J 王 M 一 1 TO 0 STEP -1 

160 CGI 十 J 一 M)=CGOD * BB(J) 十 CGI 十 J 一 M) 

170 NEXT J,I 

190 PRINT“ 商 多 项 式 次 数 ”; 

200 FOR I= N 一 M TO 0 STEP -1 

210 PRINT 2 

220 NEXT I;PRINT 

230 PRINT“ 对 应 项 系数 ” 

240 FORI 王 NTON 一 M 十 1 STEP -1 

250 PRINT ”CCI); 

260 NEXT I; PRINT 


和 费 


265 PRINT 
6 入 

270 PRINT“ 余 式 多 项 式 次 数 

280 FOR I 王 M 一 1 TO 0 STEP -1 

290 PRINT ?3 

300 NEXT I:;PRINT 

310 PRINT“ 对 应 项 系数 ” 

320 FORI 王 N 一 MTO0STEP -1 

330 PRINT “ ”CCID; 

340 NEXT I: PRINT 

380 END 

]RUN 





输入 被 除 多 项 式 次 数 3 
输入 除 式 多 项 式 次 数 2 

输入 被 除 多 项 式 第 3 项 系数 
?3 

输入 被 除 多 项 式 第 2 项 系数 
?4 

输入 被 除 多 项 式 第 1 项 系数 
7 一 9 

输入 被 除 多 项 式 第 0 项 系数 
?6 

输入 除 式 多 项 式 第 2 项 系数 
?1 

输入 除 式 多 项 式 第 1 项 系数 
?一 3 

输入 除 式 多 项 式 第 0 项 系数 
?1 

商 多 项 式 次 效 1 0 
对 应 项 系数 3 13 





余 式 多 项 式 次 数 1 0 
对 应 项 系数 31 -7 





.小 经 验 、 


砍 芒 剧 房 的 能 巧 一 艰 稍 [7OC 区 


福建 顺 昌 县 高 阳 学 区 


VTOC 的 英文 全 名 是 Volume Tabe of Contents , 意 
思 是 内 容 表册 , 它 不 但 记录 了 本 磁盘 所 使 用 DOS 的 版 
本 ,而 且 还 详细 地 记录 了 整 片 磁盘 每 个 鹿 区 的 使 用 情 
况 。 不 论 哪 一 种 APPLE DOS 版 本 ,其 VTOC 表 都 放 在 
相同 的 位 置 , 即 $11(17) 磁 道 的 第 零 扇 区 。 所 以 ,解剖 
加 密 的 磁盘 软件 时 ,往往 是 先 从 解剖 YTOC 开始 ,为 了 
保密 磁盘 软件 ,程序 设计 者 常会 使 用 搬移 VTOC 法 来 
达到 目的 。 


谢 二 华 
假如 我 们 要 将 VTOC 移 到 A 磁道 的 第 零 鹿 区 ,只 
要 执行 以 下 POKE 语句 后 ,再 用 INIT HELLO 命令 格式 
化 一 张 新 盘 , 便 可 以 产生 一 个 与 众 不 同 的 加 密 盘 。 

POKE44033,A:POKE44703,A : POKE44764,Auw/ 
POKE45715,A:POKE46586,A : POKE46012 ,Au 
POKE46286,A:POKE44741,A x 4:POKE44745,Ax 14 
二 4/ 


“实用 程序 ， 


磁盘 驱动 丝 转 速 的 测试 


南京 市 金陵 职业 大 学 


转速 是 衡量 磁盘 驱动 器 质量 高 低 的 一 项 重要 技术 
指标 。 我 们 在 购买 新 机 器 时 需要 知道 这 项 指标 ,驱动 器 
在 使 用 了 若干 年 之 后 ,转速 会 偏离 标准 值 , 在 这 个 时 
候 , 也 需要 测 一 下 转速 。 

据 有 关 资 料 介绍 :苹果 机 、 中 华 学 习 机 所 用 5. 25” 
驱动 器 正常 转速 是 每 分 钟 三 百 转 。 每 台 驱 动 器 的 转速 
都 不 会 永远 不 变 ,我 们 关心 的 是 当前 这 人 台 驱 动 器 的 转 
速 是 否 在 一 个 合理 的 范围 之 内 。 如 果 该 驱动 器 转速 大 
大 偏离 标准 值 , 那 么 它 所 存 取 的 信息 可 靠 性 ` 通 用 性 就 
大 大 降低 驱动 器 厂家 有 定期 送 检 的 要 求 , 但 国内 大 多 
数 计算 机 用 户 做 不 到 。 

有 幸 的 是 美国 苹果 电脑 公司 为 用 户 准备 了 好 几 套 
测速 软件 ,下 面 先 介绍 用 诊断 盘 CILLIN 一 工 测 转速 。 

诊断 盘 运 行 后 首先 出 现 如 下 主 菜单 画面 
十 十 十 十 十 十 十 十 十 十 十 十 十 十 十 十 十 十 


十 十 十 十 
十 十 十 十 - 
十 十 APPLE 一 CILLIN 工 十 十 
十 十 十 十 
十 十 ” COPYEIGHT 〈C) 1982 十 十 
十 十 ALL RIGHTS RESEERVED 十 十 ; 
十 十 十 十 
二 十 “一 > XPS.INC < 一 十 十 
十 十 十 一 


求生 下 全 二 
CHOOSE FROM THE FOLLOWING- 
1 一 RAM MEMORY 

2 一 ROM MEMORY 

3 一 DISK IT SYSTEM 

4 一 OTHER TESTS 

5 一 LINK GROUP OF TESTS 

6 一 SET/CLEAR RESULT PRINT__OUT 
7 一 END TEST SESSION 

PLEASE TYPE THE KEY FOR YOUR CHOICE: x 
我 们 选 了 进入 盘 测 试 而 后 出 现 如 下 画面 
十 DISK ITSYSTEM 十 

红 十 

车 MENU 十 

CHOOSE FROM THE FOLLOWING 一 

H 一 FORMAT DISK 


10 





计算 中 心 “” 钱 雁 群 


I 一 SEQUENTIAL ESAD 

J 一 SEQUENTIAL WRITE/READ 
上 一 RANDOM READ 

L 一 RANDOM WRITE/READ 

M 一 TRACK SEEK 

N 一 DRIVE SPEED 


X 一 BACK TO MAIN 一 MENU 


PLEASE TYPE THE KEY FOR YOUR CHOICE ，* 

我 们 选 N 测 驱动 器 转速 。 接 着 出 现 文字 说 明 。 大 
意 是 : 

这 是 磁盘 驱动 器 的 测速 过 程 , 它 利 用 本 程序 测试 
驱动 器 的 速度 。 在 测速 过 程 中 ,使 用 一 张 重新 初始 化 的 
磁盘 ,该 盘 上 的 原 有 数据 都 将 丢失 。 同 时 ,需要 确定 覃 
口 和 驱动 器 。 

这 时 按 生 一 键 则 出 现 提 问 。 需 要 您 把 被 测 驱动 器 
的 槽 口号 ,驱动 器 号 键入 并 且 加 以 确认 。 

这 时 你 应 该 把 事先 准备 好 的 空白 盘 插 入 相应 的 驱 
动 器 并 关 好 小 门 。 

然后 计算 机 又 告诉 你 , 按 S 键 就 开始 测试 。 按 ESC 
键 就 返回 主 菜 单 . 假 如 你 按 了 S 键 , 就 出 现 如 下 测试 画 
面 
1 DISK TESTS | 
! ! 

1 TRACK SEEK ! 
ENTER DISK SLOT NUMBER ; 6 OK?(Y/N) :Y 
ENTER DISK DRIVE NUMBER :10R2 OK?(Y/N) Y 


-TYPE ESC KEY TO EXIT 一 
TYPE THE LETTER7S” TO START THE TEST 





- SLOW ”一 十 十 十 十 FAST 十 








DISK SPEED 十 0005 十 DIFFERENCE 
-TYPE ESC KEY TO STOP TEST- 
画面 底部 有 加 号 表示 快 了 ,有 减 号 表示 慢 了 .符号 


之 间 是 偏 移 量 , 偏 移 量 是 一 个 十 六 进 制 数 。 它 的 一 个 单 
位 表示 转速 偏离 了 0. 02% 。 如 果 有 一 台 驱 动 器 慢 了 
$ 19 个 单位 ,这 相当 于 十 进 制 的 二 十 五 ,因此 算 下 来 是 
慢 了 0. 5%:! 因 为 驱动 器 的 转速 不 一 定 是 稳定 的 ,所 以 
箭头 会 左右 移动 ,而 偏 移 数量 值 也 会 不 断 改变 ,另外 要 
注意 一 点 ,转速 测试 所 用 的 磁盘 不 能 保护 ,要 不 然 会 乱 
七 八 糟 的 .了 解 速度 情况 后 可 按 ESC 键 停止 测试 。 这 
时 计算 机 还 会 提示 : 按 ESC 键 回 主 菜单 , 按 C 键 可 改 
变 槽 口号 或 驱动 器 号 , 若 按 A 键 ,将 再 次 测试 该 驱动 
器 。 偏 移 量 为 一 002F 到 十 0010 时 该 驱动 器 是 合格 的 。 
下 面 介 绍 第 二 种 测速 方法 
先 运行 LOCKSMITH “ 4. 1 软件 ,出 现 主 菜单 画 
面 。 
1. COPY DISK 
2. QUICK-SCAN DISK DATA 
3.MODIFY PARAMETERS 
4.INSPECTOR(TM) INTERFACE 
5. ERASE/DEGAUSS DISK 
6. NIBBLE-EDITOR 
7. DISK SURFACE CERTIFY 
8. HIRES DISK SPEED TEST 
9. SELF-PATCH 
:; CLEAR STATUS DISPLAY 
PRINT STATUS DISPLAY 
ESC RETURN TO MAIN MENU 
这 时 选 8 进 入 驱动 器 转速 测试 。 
出 现 画 面 如 下 : 
PRESS “ESC，TO ABORT/VRESTART 
SELECT GRAPH SCALE， 
1.FINE ADJUST (2.5% 王 70 UNITS) 
2.MEDIUM ADJUST(5% 王 140 UNITS) 
3. COARSE ADJUST(10% 一 280 UNITS) 
下 s 
ENTER NUMBER. OF SAMPLES PER LINE 
(1-3) 
1 
DRIVE NO. OF DISKETTE， 
它 的 大 意 是 :1 是 进行 细 调 ,2 是 中 调 ,3 是 粗 调 。 按 
ESC 键 返回 主 菜单 。 
选 好 粗细 调 之 后 ,还 要 选 测速 线条 的 长 短 。 选 1 是 
点 , 选 2 中 等 , 选 3 是 短线 通常 选 1。 
接着 你 还 要 告诉 机 器 驱动 器 号 ,然后 按 任 一 键 开 
始 测试 。 在 测试 前 有 的 版 本 还 会 提醒 你 ,测试 过 程 中 将 
破坏 被 测试 盘 上 原来 的 内 容 。 测 试 时 将 出 现 画 面 如 下 : 


SLOW<---DISK SPEED--- 之 FAST 

慢 慢 运行 的 点 在 左 半 部 分 就 说 明 被 测 驱动 器 转速 
慢 了 .了 解 了 转速 情况 以 后 , 按 ESC 键 停止 测试 。 再 按 
ESC 键 将 测 下 一 个 驱动 器 ;再 按 一 次 ESC 键 将 返回 主 
菜单 。 

据 有 关 资 料 说 明 ,磁盘 驱动 器 转速 宜 慢 不 宜 快 。 稍 
微 慢 一 点 的 机 器 读 / 写 的 可 靠 性 比较 好 。 新 的 驱动 器 则 
偏差 越 小 越 好 .如 果 您 的 机 器 转速 偏差 较 大 ,可 调换 或 
送 检修 部 门 调整 ,有 检修 能 力 的 用 户 , 可 打开 驱动 器 外 
壳 , 在 驱动 电路 板 上 找到 调 速 电位 器 , 边 测 边 调 , 直 到 





满意 为 止 。 

4 .实用 程序 . | 
乡 制 矩形 统计 图 
， 黄 文员 





》 
NAN 
我 们 各 行 各 业 都 需要 统计 各 种 形式 的 数 
据 。 为 了 直观 .清楚 、 明 了 ,最 简便 的 方法 就 是 
用 图 形 来 说 明 。 如 :学 校 学 生 学 习 成 绩 、 纪 律 情 
况 ; 工 厂 的 生产 情况 ;财务 的 收 支 情况 等 等 。 
为 此 ,我 编 了 一 个 程序 ,考虑 到 各 行 各 业 
都 能 通用 ,并 能 根据 各 种 不 同 要 求 绘 出 不 同 的 
矩形 统计 图 。 故 首先 要 求 用 户 输入 4 种 数据 (20 
一 50 语 名 的 文字 说 明 )。 用 户 可 以 根据 自己 的 . 
具体 情况 ,把 这 种 数据 固定 下 来 ,以 后 只 要 输 
入 各 段 的 实际 数据 (如 :各 个 分 数 段 的 学 生 人 
数 ), 一 张 标 准 的 矩形 统计 图 就 绘 成 了 。 
此 程序 虽 短 ,但 用 途 广 方便、 准确、 迅速 ， 
并 能 反复 打印 。 对 学 校 了 解 学习 成 绩 特别 有 
用 。 ， 
该 程序 在 中 华 学 习 机 上 运行 通过 ,对 于 其 
它 机 型 ,只 需要 修改 部 分 语句。 利用 中 华 学 习 
机 的 汉字 功能 ,还 可 以 在 图 形 上 加 注 简短 的 汉 
字 说 明 。 对 380 语 名 再 增加 部 分 数据 (如 :0、20、 
40、60、80), 即 横 坐 标的 刻度 更 清楚 。 修 改 420 
语 名 ,就 能 对 图 形 进 行 正 常 打印 和 放大 打印 。 
现 以 学 生 学 习 成 绩 为 例 , 介 绍 图 形 的 含义 : 横 
坐标 表示 分 数 段 ,如 分 为 0 一 9 分 、10 一 19 分 、20 
一 29 分 、30 一 39 分 、40 一 49 分 、50 一 59 分 、60 一 
11 


69 分 、70 一 79 分 、80 一 89 分 .90~-99 分 、100 分 共 
11 个 分 数 段 (注意 :对 于 20 句 ,运行 应 输入 10， 
不 应 是 11)。 纵 坐标 表示 各 个 分 数 段 的 人 数 。 如 
反映 工厂 的 生产 情况 , 横 坐 标 用 来 表示 月 份 
(如 :1 一 12 个 月 ), 纵 坐标 表示 产量 …… 

注 : 考 虑 到 学 生 的 学 习 成 绩 有 满分 ,故此 
图 能 单独 标 出 100 分 的 人 数 来 。 对 于 工厂 企业 
单位 ,只 须 去 掉 60、350、360 语 名 ;70 语 名 中 的 
YCX) 改 为 YGH);100 语 名 中 的 X 改 为 开 。 最 简 
ee 对 最 
后 一 段 输 0 就 行 

AR 
计数 据 不 同 , 又 去 重新 设计 程序 ,整个 运行 过 
程 都 在 中 文 状 态 下 ,只 要 懂 点 计算 机 的 使 用 党 
识 , 就 能 绘 出 自己 所 需要 的 矩形 图 形 来 。 


区 限 国 TCR PRINT :HR 

中 届 玫 8 JRUT “将 旦 标 冰 为 有 格 “站 

入 必 妥 全 JNPUT “最 大 避 导 定 为 及 ;Ht: PRINT 

帖 全部 全 JPUT 失业 标 节 为 用 格 “这 

兄 机 秃 全 INPUT “最 大 数值 定 为 用 “2 

的 % -+ 

险 0 

六 NE :W1 

粤 限 攻 [ 生生 了 必 

期 F 根 Tt TD 

] 二 PRINT " 曲 大 数 汶 这 

增 PE 大 ( 第 汪 B 避 JU 

拓 WIN 腿 WD >》 TEN 坪 

博 MBTI 

声 = 凑 = 从 肖 ] =R+ 

丧 T= 博 2T= IIDT 二 -T#z 

拓 RN EN PR: PRINT :HR2 : 林 妥 

元 PRINT TREE 3 1， 查看 ”TAB 2 9， 重 玫 - PR 、 

二 了 人 折 生 2 关 

叶 WE HTE 拓 :PRINT “请 渤 择 :“;: GET 人 :PRINT k = 
2 下 天 < 只》 THEN 3 

郑 只 人 阅 SB 26268 26 

尖兵 

敌 F: F 隆 (RN 的 

各 HIME : 杂 地 瑟 本 本 13: PRINT “天 见 - 厢 本 全 罗 0 

姑 FRI 了 PR PRINT :HR :RDLIR= 3 
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清和 二 让- 的 岳 玫 + 及 本 性 
著 HBT 
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让 PRINT 
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-二 - 得 和 + 届 


.实用 程序 ， 
报 务 员 训练 辅助 程序 


坊 子 区 54698 部 队 “ 王 永 真 ”， 孙 书 应 王 树 国 


为 了 提高 服务 人 员 初 级 训练 效率 ,帮助 初学 者 尽 
快 建立 电码 的 概念 ,提高 对 电码 的 反映 能 力 , 我 们 编 了 
一 个 能 将 0 一 9 和 A 一 Z 字符 变 成 莫 尔 斯 格式 的 程序 ， 
用 于 初级 报 务 人 员 听 力 和 抄 报 训练 。 

一 、 程 序 特点 

(一 ) 有 两 种 工作 方式 。 一 是 自动 产生 四 码 一 组 的 
随机 电文 (0 一 9 字符 的 随机 组 合 ); 二 是 按 指定 格式 、 字 
符 发 报 , 字 符 范围 是 0 一 9 和 A 一 Z 的 随意 组 合 。 

二) 所 发 字符 在 屏幕 上 显示 ,以 便 初学 者 视听 觉 
器 官 并 用 ,提高 训练 效率 。 

三) 音调 \ 点 ( 划 ) 长 度 在 一 定 范围 内 可 调 。 音 调 一 
般 取 值 范围 在 30 一 150 之 间 ,数值 与 音调 的 关系 是 数值 
大 音调 高 ,同时 数值 影响 发 报 速度 ,关系 是 数值 大 , 速 
度 慢 ;点 ( 划 ) 长 度 取 值 范围 在 1 一 3 之 间 , 数 值 大 ,点 
〈 划 ) 长 度 长 ,以 适应 不 同 层次 的 初学 者 的 要 求 。 注 意 上 
述 数值 应 取 整 数 。 

(四 ) 码 .组 间隔 任意 可 调 ,以 适应 不 同 初学 者 要 
求 ,正常 情况 按 屏 幕 提 示 输 入 即 可 ,数值 大 .间隔 时 间 
长 5 

二 、 程 序 说 明 

10 一 一 95 ”输入 有 关 参 数 ,选择 工作 方式 。 

110 一 150 ” 装 入 发 声 机 器 语言 子 程序 , 装 入 音调 
参数 。 

165 一 230 
一 9 随机 组 合 ) 

240 一 260 
序 。 

265 一 一 336 按 指 定 字 符 发 报 程序 。 

350 机 器 语言 发 声 子 程序 十 进 制 机 器 码 。 

500 一 一 930 分别 为 0 一 9、A~Z 字符 到 莫 尔 斯 
格式 转换 子 程序 。 

1000 一 1070 产生 点 ( 划 ) 的 子 程序 。 

2000 一 设置 指定 报 文 的 数据 语句 。 

三 、 结 束 语 

本 程序 在 中 华 学 习 机 CEC-I 和 APPLE 一 Te 机 上 
均 运 行 通过 ,并 通过 有 经 验 的 报 务 员 人 参加 调试 , 若 点 
(〈 划 ) 长 度 参 数 选 1, 其 它 参数 按 屏幕 提示 输入 数据 , 则 
每 分 钟 可 发 一 百 个 码 左右 ,完全 可 以 满足 初级 报 务 人 
员 听 、 抄 训练 要 求 . 中 止 程序 执行 按 Ctrl-C 键 。 


自动 生成 四 码 一 组 的 随机 电文 (字符 0 


装 入 点 ( 划 ) 长 度 参 数 ,调用 发 声 子 程 


10 
20 
30 
50 
52 
55 
60 
65 
70 
75 
80 
85 
90 
92 
95 
110 
120 
130 
140 
150 
160 
165 
170 
180 
190 
200 


210 
220 
225 
230 
240 
250 
260 
265 
270 
280 
290 
295 
296 
298 
300 
305 
310 


320 
330 
335 
336 


REM : 报 务 员 训练 辅助 程序 
HGR2 
HOME 
PRINT “请 键入 ……? 
INPUT“ 点 长 度 (1 一 3)”;S 
IF S< 0 OR S> 3 THEN 50 
INPUT“ 码 间隔 ( 约 45)”;MJ 
IF MJ < 0 THEN 60 
INPUT “组 间隔 ( 约 120)”;ZJ 
IF ZJ 一 0 THEN 70 
INPUT“ 音 调 ( 约 60)”;P 
IF P <<0 OR P 之 255 THEN 80 
INPUT“ 自 动 生成 码 /指定 码 (1/2)”M 圣 
HGR2:HOME 
IF M 竺 > <“1”AND M 竺 之 <“22THEN 90 
FOR I 一 866 TO 891 
READ 了 J 
POKE I,J 
NEXT I 
POKE 865,P 
IF M 和 =“22THEN 270 
NN 一 0 
FORI 一 1To4 
X=INT (RND (1) x* 10) :PRINT X; 
C=-FRE (0) 
ON X 十 1 GOSUB 500,510, 520, 530, 540, 550, 560， 
570,580,590 
FOR 工 一 1 TO MJ x* S:NEXT 
NEXT :PRINT“ ”; :FOR 工 一 1 TO ZJx S:NEXT 
NN 王 NN 二 1:IF NN 一 6 THEN PRINT ;GOTO 165 
GOTO 170 
POKE 864,L 
CALL 866 
RETURN 
NN=-0 
READ X 羊 :K 一 LEN (X 圣 ) :IF K 一 0 THEN 270 
FOR KK 一 1 TO K 
Y 圣 王 MID 圣 (X 蛙 ,KK,1):PRINT Y 圣 ， 
Q=ASC (Y 至 ) 
IF Q>64 AND Q<<91 THEN X =Q 一 55:GOTO 300 
X 王 VAL (Y 圣 ) 
C 一 FRE (0) 
IF X<0 OR X > 之 35 THEN 270 
ON X 十 1 GOSUB 500, 510,520,530, 540,550, 560， 
570, 580, 590, 510, 700,710, 580,720,730,740,750， 
760, 770, 780,790,800,810,820,830,840,850,860， 
870,880,890,900,910,920,930 
FORL =1 TO MJ x* S:NEXT 
NEXT :PRINT“ ”5 :FOR 一 1 TO ZJ x* S:NEXT 
NN 王 NN 十 1:IF NN 一 6 THEN PRINT ;GOTO 265 
GOTO 270 


350 


500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


”600 


700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
1000 
1005 
1010 
1020 
1030 
1040 
1050 


。1060 


1070 
2000 


2010 
2020 
2030 


DATA 172,97,3,174,97,3,232,208,253,169,4,32， 
168, 252, 173, 48, 192, 136, 208, 239 ,206, 96, 3,208， 
231,96 
GOSUB 1010:GOSUB 1020:RETURN 
GOSUB 1070:GOSUB 1010;RETURN 
GOSUB 1060:GOSUB 1010:RETURN 
GOSUB 1050:GOSUB 1000:RETURN 
GOSUB 1040:GOSUB 1010;:RETURN 
GOSUB 1030:GOSUB 1020:RETURN 
GOSUB 1010:GOSUB 1040:RETURN 
GOSUB 1000:GOSUB 1050:RETURN 
GOSUB 1010:GOSUB 1060:RETURN 
GOSUB 1010:GOSUB 1070;RETURN 
GOSUB 510:GOSUB 1020:RETURN 
GOSUB 1010:GOSUB 1040:RETURN 
GOSUB 590:GOSUB 590:RETURN 
GOSUB 1070:GOSUB 1020:RETURN 
GOSUB 520:GOSUB 1070;:RETURN 
GOSU8 1005:GOSUB 1070:RETURN 
GOSUB 1040:GOSUB 1020:RETURN 
GOSUB 1060:GOSUB 1020:RETURN 
GOSUB 1070:GOSUB 1000:RETURN 
GOSUB 590:GOSUB 1010;:RETURN 
GOSUB 510:GOSUB 1060;:RETURN 
GOSUB 1005:GOSUB 1020:RETURN 
GOSUB 590:GOSUB 1020;:RETURN 
GOSUB 1000:GOSUB 1020:RETURN 
GOSUB 510:GOSUB 590:RETURN 
GOSUB 1005:GOSUB 510;RETURN 
GOSUB 510:GOSUB 1070:RETURN 
GOSUB 1050:GOSUB 1020:RETURN- 
GOSUB 1010:GOSUB 1020:RETURN 
GOSUB 520:GOSUB 1020:RETURN 
GOSUB 1050:GOSUB 1010:RETURN 
GOSUB 510:GOSUB 1010:RETURN 
GOSUB 580:GOSUB 1010:RETURN 
GOSUB 590:GOSUB 1005:RETURN 
GOSUB 1005;GOSUB 1060;RETURN 
L 一 3x* S:GOSUB 240 

L 一 3x S:GOSUB 240 

L 一 3 x S:GOSUB 240;RETURN 

L 一 1x S:RETURN 

L=1xS:GSUB 240 

L 王 1xS:GOSUB 240 

L 一 1xS:GOSUB 240 

L 一 1x S:GOSUB 240 

L 王 1 x S:GOSUB 240:RETURN 

DATA SKJI, 1234, 5KL6, HJG2, KIGF,DHYE, 2333， 

1455,46546,8798,RRRR 
DATA 1456,2587,987,236541,5678,14567 
DATA 

DATA 
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“实用 程序 、 


九 九 表 的 几 种 打印 方法 


南京 市 金陵 职业 大 学 计算 中 心 


打印 九 九 表 , 是 初学 BASIC 语言 者 常 做 的 一 道 
题 。 笔 者 编 了 三 种 不 同 的 打印 九 九 表 程序 ,请 您 试 一 
试 ,如 有 更 好 的 ,请 交流 。 
方法 一 :我 们 以 40 为 模 , 在 TAB(X) 语 句 中 , 当 X 
大 于 40 时 丢掉 40, 在 其 它 场合 应 用 时 , 先 要 判断 一 下 第 
40 位 有 无 字符 可 打 。 如 不 打字 符 , 必 须 补 一 个 空格 ( 见 
如 下 程序 ) 。 
10 FOR M=1TO9 
20 “FOR N 王 1 TO M 
30 Q=Nx*8 一 5 
40 IFQ>40 THEN Q=Q 一 40 
50 PRINT TAB K(Q)N 和 xx 23M 和 一 ”5 Nx<M; 
60 NEXT N 
70 PRINT 
80 NEXT M 
方法 二 :我 们 发 现 :每 一 行 的 第 一 个 TAB(X) 语 
句 ,不 管 X 是 否 大 于 40, 定 位 总 是 很 准 。 于 是 我 们 采用 
控制 打印 磁头 的 打印 命令 ,适时 地 禁止 换行 或 允许 换 
行 。. 在 如 下 程序 中 ,POKE1529, 255 是 禁止 换行 ;而 
POKE ”1529,0 是 取消 禁止 换行 .注意 ,50 句 未 尾 没 有 
分 号 了 。 
10 FOR M 王 1 TO 9 
20 FOR N 王 1 TO M 
30 X=Nx 8-7 
40 POKE 1529,255 
50 PRINT TAB(X);IN 和 xx ”3M 和 一 ”3 N M3 昂 
60 NEXT N 
70  POKE 1529,0 
80 PRINT 
90 NEXT M ， 
方法 三 :利用 表格 输出 控制 命令 。 这 个 命令 的 格 
是 PRINT CHR. 甩 (27);“D2”; CHR. $ (Cnl);CHR $ (Cn2) 
ee ; CHR $ Cnk) ;CHR $ (0) 这 个 命令 事先 置 好 之 后 ， 
接着 在 要 打印 的 字符 组 前 配 一 个 CHR $ (9 语句。( 请 
见 程序 ) 
10 PRINT CHR $ (27);“D2?”;CHR $ (2);CHR 和 $(10); 
CHR $ (18); CHR $ (26); CHR $ (34); CHR 
$ (42); CHR $$(50); CHR $ (58); CHR $ (66); 
CHR$ (0) 
20 FOR M 王 1TO 9 





钱 雁 群 
30 FOR N 一 1 TO M 
40 PRINT CHR $ (9)Nx Mi 一 2N x MI 
50 NEXT N 
60 ”PRINT 
70 .NEXT M 

这 种 方法 有 点 怪 , 它 似乎 有 两 组 落脚 点 。 第 26 或 27 
以 及 66 或 67 共 两 组 ,如 果 不 踩 着 点 子 设置 , 它 就 乱 打 一 
通 。 另 外 那个 CHR $ (9) 命 令 , 放 在 要 打印 的 字符 组 之 
前 可 以 , 放 在 字符 组 之 后 也 行 。 这 些 疑 点 , 有待 于 进 一 
步 探索 。 


人 人 人 小 全 小 全 由 小 全 小 和 由 和 小 人 小修 不 


.软件 介绍 。 
磁 可 软件 对 磁带 的 自动 描 贝 的 补充 说 明 


天 津 第 七 印刷 厂 张 振 党 

贵 刊 发 表 了 《磁盘 软件 对 磁带 的 自动 拷贝 } 一 文 
后 ,我 收 到 不 少 读者 来 信 。 有 的 同志 使 用 该 软件 后 未 能 
达到 预期 的 效果 ,因此 ,我 对 该 软件 的 使 用 方法 补充 说 
明 一 下 。 

一 . 由 于 程序 运行 后 ,将 在 磁盘 上 建立 一 个 顺序 文 
件 , 磁 盘 必 须 揭 除 写 保护 .而 且 ,磁盘 内 除 包含 全 部 待 
拷贝 软件 外 ,还 应 留 有 2 一 3 肩 区 的 自由 空间 ,以 备 建立 
“TAPE" 文 件 ,否则 程序 将 拒绝 执行 。 

二 . 原 程序 运行 过 程 中 ,将 在 第 三 页 建立 一 个 机 器 
语言 子 程序 。 因 此 ,不 允许 待 拷贝 软件 也 占用 第 三 页 ， 
否则 , 子 程序 将 被 破坏 ,从 而 导 至 拷贝 失败 。 

为 了 给 用 户 提 供 更 多 的 使 用 空间 ,笔者 对 原 程序 
进行 少量 的 修改 ,修改 后 的 子 程序 被 移 往 第 二 页 ,用户 
可 以 放心 使 用 第 三 页 ,这 就 为 用 户 提供 了 更 多 的 方便 。 
修改 方法 如 下 : 

130 FOR I 一 0TO 180 

140 READ A:POKE 587 十 L,A 

380 ”PRINT “CALL 587? 

690 DATA 24,173,114,170,109,96,170,133， 

6,173,115, 170, 109,97, 170, 133,7, 173， 
115, 170, 32, 229, 2, 141, 9, 2, 141， 20, 2， 
165, 255, 141, 10, 2, 141, 21,， 2, 173,， 114， 
170,32,229,2,141,11 


700 “DATA 2,141,22,2,165,255, 141, 12, 2， 
141, 23, 2, 165, 7, 32, 229, 2, 141, 14， 2， 
165,255,141,15,2,165,6,32,229,2,141， 
16,2,165,255,141,17,2,162,0,169,160， 
157,0,2 

720 DATA 115, 170, 133, 61, 165, 6, 133, 62， 
165,7,133,63,32,205,254,76,179,254， 
170, 41, 15, 32, 246,2,133, 255, 138, 74， 
74,74,74,32,246,2,96,201,10,144,3， 
24,105,7,105,176,96 

删除 原 程序 中 第 350 行 。 

三 , 为 确保 磁带 软件 运行 成 功 , 这 里 介绍 一 个 方 

法 ;首先 按 录音 机 “ 放 音 键 >, 当 从 扬声器 中 听 到 程序 起 
始 段 信号 时 ,马上 按 “ 和 暂停 键 ", 然 后 插 上 耳机 插头 ,在 


监控 状态 下 键入 200.2FFR, 最 后 再 按 “ 和 暂停 键 ", 使 录 
音 机 恢复 放 音 并 同时 按 回 车 键 即 可 。 这 个 办 法 可 排除 
磁带 上 空白 部 分 的 噪声 对 程序 的 影响 ,进一步 提高 成 
功率 .当然 , 欲 使 全 部 工作 顺利 完成 ,还 应 在 录音 机 质 
量 ,音量 音调 的 调整 等 方面 下 一 番 功 夫 , 这 些 问 题 其 它 
文章 曾 多 次 介绍 ,这 里 不 再 袭 述 。 
十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 

f 对 90 年 第 五 期 P17 和 P18 文 中 的 更 正 

50 行 中 应 是 30 个 * 

60 行 中 PRIDNT 改 为 PRINT,NEXT 前 加 冒号 

420 行 中 PRISNT 改 为 PRINT 

500 行 中 IN TO 改 为 INTO 

640 行 中 逗号 删 去 


-十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 - 


过 


j 十 -十 -十 -十 -十 -十 -十 
x- 十 -十 -十 -十 - 


省 少 少 少 池 省 省 池 少 放 省 池 少 池 少 洒洒 洒洒 洒洒 他 池 他 池 少 他 洒洒 他 洒洒 洒洒 洒洒 洒洒 少 洒 洒洒 他 


“软件 介绍 


写字 式 汉字 输入 法 ( 鸿 钟 码 ) 介 绍 


. 蚌埠 教育 学 院 


江苏 无 锡 教 育 学院 姚 鸿 滨 副 教授 与 柳 德 钟 讲 师 ， 
经 近 七 年 的 辛苦 研究 ,发 明了 一 种 独特 的 汉字 输入 
法 ,已 申请 国家 专利 ,并 于 今年 六 月 廿 日 公开 .这 种 输 
入 法 极其 简单 ,完全 模仿 人 的 书写 习惯 ,不 用 任何 代 
码 ,不 要 记 任 何 规则 ,任何 一 个 会 写字 的 人 在 几 分 钟 
内 都 能 学 会 ,而 且 终身 不 忘 。 

基本 的 单字 输入 形式 是 :在 键盘 上 有 12 个 键 , 代 
表 基本 笔画 ,只 要 按 汉字 的 笔顺 ,依次 击 键 ,提示 行 不 
是 显示 西 文字 符 , 而 是 直观 的 笔 形 , 象 一 键 一 画 地 写 
字 一 样 , 写 完 后 加 一 空格 , 即 得 到 这 个 汉字 .如 “G? 代 
表 横 “H?” 代 表 紧 ,那么 按 “ 一 ,| 得 “十 ”， 按 “一 
交 和 光 1” 得“ 丰 ” 按 “ 一 ,一 ， | ,一 ”得 “ 王 ”。 全 部 国标 
一 、 二 级 汉字 ,都 可 由 这 十 二 键 “ 写 ?出 。 

对 于 笔画 多 的 汉字 ,还 可 以 用 “组 合 笔画 ? 键 输 
入 。 一 个 组 合 笔画 代表 一 个 字 根 或 常用 汉字 ,如 “ 木 ”， 
“ 立 ” 口 2 日? 岛 ”%…… 等 , 共 一 百 多 个 。 分 别 按 排 
在 键盘 的 上 档 , 下 档 ,Alt 档 上 。 使 用 组 合 笔画 可 大 大 
减少 击 键 次 数 。 

鸿 钟 码 的 另 一 特点 是 :对 于 一 个 汉字 , 既 可 以 拆 
成 一 笔 一 画 的 “ 写 ”, 也 可 以 将 多 个 相 邻 的 笔画 用 组 合 
笔画 输 ,只 要 笔顺 不 变 可 任意 拆 拼 。 如 “ 王 ”, 可 用 
“一 、 一 |, 一” 或“ 干 ,一 ”或 “一 , 土 2 等 多 种 方法 输 
入 。 其 中 “ 干 ”“ 土 ?是 组 合 笔画 .这样 对 任 一 汉字 能 合 
则 合 ,不 易 合 则 拆 ,不 需要 记 任何 拆 拼 、 取 笔画 的 规 
则 ,给 汉字 输入 带 来 很 大 方便 。 


张 振 龙 


鸿 钟 码 的 第 三 个 特点 是 重 码 率 极 低 , 原 则 上 只 有 
笔 形 ,笔顺 完全 一 致 的 才 会 重 码 ,如 “ 土 >“ 士 >“ 工 ”。 
实测 国标 一 、 二 级 汉字 中 重 码 率 小 于 2% , 且 最 多 四 字 
同 码 ,易于 选 字 。 

初 看 起 来 ,使 用 鸿 钟 码 似 乎 击 键 次 数 多 ,速度 慢 ， 
但 是 ,由 于 不 要 记 代 码 及 拆 拼 规 则 ,再 加 上 使 用 组 合 
笔画 ,速度 影响 不 大 。 特 别 是 对 于 非 专职 的 汉字 录入 
员 , 如 教师 学生、 行政 干部 .普通 科技 与 文字 工作 者 
最 适用 。 鸿 钟 码 开发 利用 了 “写字 ?这 一 中 国人 从 小 就 
学 会 的 智力 资源 。 鸿 钟 码 和 汉字 教学 的 要 求 相 一 致 ， 
从 幼儿 学 字 起 就 可 以 使 用 , 仅 从 这 一 点 看 ,就 是 一 个 
优秀 的 教学 软件 . 鸿 钟 码 的 推广 使 用 ,将 会 推动 计算 
机 的 普及 教育 ,使 微机 快速 走 进 家 庭 。 

目前 鸿 钟 码 已 在 IBM-PC 系列 , APPLE, 长 江 系 
列 ,中 华 学 习 机 等 各 类 微机 上 实现 。 

在 苏州 大 学 计算 机 工程 系 钱 培 德 副 教授 等 人 的 
协作 下 ,完成 了 包含 鸿 钟 码 在 内 的 3. 0 版 汉字 操作 系 ， 
统 。 它 适用 于 CGA,EGA,HGC,MDA,CGE400 等 显示 
形式 ,并 可 装 入 其 它 操作 系统 ,包括 长 城 0520 机 .该 系 
统 除 单字 输入 外 ,还 具有 按 笔画 查询 、 固 定 词组 \ 自 定 ， 
义 词组 及 简 码 输入 等 多 种 功能 。 

在 蚌埠 教育 学 院 张 振 龙 副教授 的 协作 下 , 它 成 了 
APPLE 及 中 华 学 习 机 上 使 用 的 HZL 汉字 系统 , 它 是 
在 ZL 汉字 系统 上 扩充 了 一 级 汉字 的 鸿 钟 输入 法 。 在 
中 华 学 习 机 上 ,也 有 可 以 直接 使 用 硬汉 字 的 版 本 。 
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“计算 机 辅助 教育 


中 华 学习 机 的 诞生 与 发 展 就 是 为 了 向 我 国 关心 青 
少年 教育 的 教师 .干部 和 家 长 提供 重要 的 教育 发 展 手 
段 。 经 过 几 年 的 发 展 和 广大 教师 学 生 的 努力 ,中 华 学 习 
机 在 教育 中 已 经 得 到 了 相当 广泛 的 应 用 ,取得 了 卓 有 
成 效 的 教育 效果 。 

怎样 发 挥 中 华 学 习 机 的 教育 应 用 特点 ? 

怎样 设计 和 开发 更 好 的 中 华 学 习 机 教育 软件 和 硬 
件 系统 ? 

怎样 进行 计算 机 辅助 教育 活动 和 管理 ? 

本 专栏 的 开辟 将 为 从 事 计算 机 辅助 教育 (包括 计 


”专栏 致词 


算 机 辅助 教学 和 计算 机 管理 教学 ) 事 业 的 同行 与 各 位 
教师 和 家 长 提供 交流 观点 与 建议 、 经 验 与 教训 、 动 态 报 
告 与 实验 研究 的 一 块 园地 。 本 专栏 还 将 及 时 组 织 有 关 
问题 的 讨论 与 探讨 ,为 把 中 华 学 习 机 更 好 地 应 用 于 教 
育 , 使 其 成 为 一 种 很 好 的 、 受 师 生 家 长 一 致 欢迎 的 教育 
新 手段 而 作出 贡献 ,欢迎 大 家 积极 投稿 和 提出 宝贵 意 
见 。 

本 栏目 主持 人 :上 海 华东 师范 大 学 教育 信息 技术 
系 (邮政 编号 :200062) “ 王 吉 庆 ” 张 琴 珠 


米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 米 


关于 开发 中 小 


上 学生 家 用 教学 专家 


系统 的 探讨 


黑龙 江 省 教科 所 王建 新 


一 \ 问 题 的 提出 
集体 授课 制 存在 着 一 些 难以 解决 的 问题 ,如 难以 
。， 照 顾 学 生 的 个 别 差异 等 .利用 计算 机 辅助 教学 ,可 以 在 
一 定 程度 上 解决 这 些 问 题 . 从 而 实现 我 们 一 直 强调 的 
“因材施教 ”鉴于 我 国 中 小 学 生 数 量 巨大 ,经 济 条 件 比 
较 落后 ,中 小 学 不 必 说 在 校内 建立 辅助 教学 网 络 ,就 算 
一 所 学 校 建 一 个 微机 室 , 供 学 生 轮 流 学 习 计算 机 知识 ， 
也 是 一 件 暂时 难以 做 到 的 事情 ,因为 这 需要 十 几 万 元 ， 
一 般 学 校 根 本 无 法 办 到 ,所 以 在 中 小 学 教育 中 应 用 计 
算 机 技术 必须 另 辟 途 径 。 大 量 生 产 中 华 学 习 机 并 推 向 
家 庭 是 普及 计算 机 辅助 教学 的 捷径 。 目 前 功能 相当 于 
Apple 一 工 的 中 华 学 习 机 可 利用 家 用 电视 机 作 显 示 器 ， 
用 家 用 磁带 录音 机 作为 外 存 设 备 , 主 机 价格 仅 一 千 元 
左右 ,中 等 以 上 生活 水 平 的 家 庭 买 一 台 是 没 问 题 的 .有 
关 部 门 曾 在 市 场 调查 中 发 现 有 26. 5% 的 中 小 学 生 家 长 
表示 愿意 为 孩子 买 台 中 华 学 习 机 ,看 来 近年 内 中 华 学 
习 机 将 会 大 量 涌 进 中 小 学 生 家 庭 。 我 们 应 利用 这 一 条 
件 ,积极 开展 计算 机 辅助 教学 ,以 作为 学 校 教学 工作 的 
重要 补充 ,有 效 地 提高 教学 质量 。 
中 华 学 习 机 进入 家 庭 的 关键 是 拥有 相应 的 辅助 教 
学 软件 . 近 几 年 我 国 的 辅助 教学 软件 研制 取得 了 一 定 
进展 ,但 实用 水 平 还 达 不 到 辅助 教学 的 要 求 ,一 方面 是 
智能 化 程度 较 低 , 与 教师 应 有 的 教学 水 平 相差 太 远 , 另 
一 方面 是 其 开发 目的 多 为 辅助 课堂 教学 ,而 没有 考虑 
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在 家 庭 应 用 的 问题 .既然 中 华 学 习 机 用 于 家 庭 是 一 重 
要 领域 ,应 当 大 力 开发 能 起 到 家 庭 教 师 作用 的 软件 ,我 
认为 比较 理想 的 作法 是 积极 组 织 力量 ,开发 在 中 华 学 
习 机 上 运行 的 “家 用 教学 专家 系统 ”, 并 把 这 项 工作 作 
为 开发 中 小 学 辅助 教学 软件 的 主干 工程 .可 以 肯定 ， 
“家 用 教学 专家 系统 ”的 应 用 会 产生 很 大 的 社会 效益 和 
经 济 效益 ,因为 这 是 向 全 国 二 亿 中 小 学 生 提 供 的 ,将 起 
到 数字 相当 可 观 的 教师 的 作用 .我 国 师资 仍 比 较 缺 乏 ， 
培养 教师 代价 很 大 ,而 研制 专家 系统 花费 却 小 得 多 。 
“家 用 教学 专家 系统 ”在 农村 的 作用 会 更 大 , 因 农 村 教 
师 较 缺乏 ,而 农民 中 的 一 部 分 花费 一 千 多 元 买 台中 华 
学 习 机 是 不 困难 的 。 

二 “家 用 教学 专家 系统 "应 具备 的 功能 

对 于 “家 用 教学 专家 系统 ”, 最 理想 的 要 求 是 它 能 
模拟 优秀 教师 进行 教学 工作 .而 作为 一 名 优秀 教师 ,不 
仅 要 具备 系统 的 渊博 的 知识 ,对 本 学 科教 学 内 容 及 相 
关 学 科 有 深入 的 研究 ,积极 吸收 科学 文化 新 成 就 ,不 断 
充实 和 更 新 教学 内 容 , 而 且 还 要 学 习 研 究 和 掌握 教育 
理论 ,并 运用 于 教学 之 中 .还 要 具备 极 强 的 分 析 解 决 教 
学 工作 问题 的 能 力 ,能 够 对 教学 对 象 的 学 习 能 力 水 平 
充分 了 解 并 进行 因材施教 , 即 对 不 同 特征 的 学 生 分 别 


,采用 最 适合 他 们 学 习 的 方法 教学 ,以 求 得 教学 过 程 最 


佳 ,教学 效果 最 好 。 家 用 教学 专家 系统 "应 能 体现 出 这 
些 特 点 ,因此 , 它 应 具备 如 下 功能 : 


1. 具有 教学 内 容 所 包含 的 丰富 知识 ,集中 了 教育 
学 ,心理 学 有 关 理 论 和 方法 ,以 及 优秀 教师 的 经 验 , 具 
有 优秀 教师 的 工作 水 平 。 

2. 能 够 汇集 许多 学 科 的 知识 ,综合 解决 一 些 问题 。 

3. 能 够 诊断 学 生 学 习 中 的 问题 或 困难 产生 的 原 
因 , 及 时 告诉 学 生 并 予以 指导 纠正 。 

,4 有 总 结 教学 规律 .学生 特点 ,发 现 问题 等 自学 功 

能 ,不 断 丰 富 和 完善 自己 。 

我 认为 “家 用 教学 专家 系统 ”的 实用 功能 ,主要 是 
对 中 小 学 生 进 行 某 种 学 业 的 课外 辅导 ,而 不 是 系统 地 
传授 知识 。 所 以 它 应 具备 很 强 的 测试 诊断 功能 ,以 便 迅 
速 地 查 清 学 生 的 有 关 情 况 , 然 后 有 针对 性 地 解决 学 生 
的 问题 , 它 的 这 个 功能 是 应 该 强调 的 。 

三 、 研 制 “ 家 用 教学 专家 系统 ”的 基础 和 条 件 

研制 “家 用 教学 专家 系统 ”涉及 到 计算 机 软件 技 
术 , 教 育 理论 ,以 及 中 华 学 习 机 硬件 环境 和 技术 人 员 水 
平等 .这 是 研制 的 基础 和 条 件 , 在 研制 中 应 充分 利用 ， 
以 保证 “家 用 教学 专家 系统 ”达到 应 有 的 水 平 。 

1. 充分 利用 已 有 的 CAI 技术 及 成 果 

我 国 已 研制 了 许多 CAI 软件 ,应 用 于 大 、 中 、 小 学 
许多 学 科教 学 领域 .其 中 大 学 用 的 大 部 分 是 在 IBM 及 
兼容 机 上 运行 的 ,中 小 学 用 的 则 主要 是 在 Apple 一 工 机 
上 开发 的 这些 软件 已 实现 了 汉字 化 、 动 画图 象 显示 、 
音响 的 效果 ,有 的 还 具备 了 提供 序列 练习 题 及 自动 评 
判 学 生 的 问题 回答 结果 等 功能 .同时 ,还 出 现 了 一 些 工 
具 软 件 , 对 课件 语言 也 有 所 研究 .中 华 学 习 机 与 Ap- 
ple 一 世 机 相 兼 容 ,并 具有 汉字 显示 功能 ,能 满足 偏 制 
“家 用 教学 专家 系统 ”的 要 求 ,也 能 应 用 上 述 的 一 些 基 
本 技术 另外, 有些 CAI 软件 已 开始 初步 实现 智能 化 ， 
更 应 积极 吸收 其 技术 。 

2. 充分 利用 教育 理论 和 优秀 教师 的 教学 经 验 

充分 利用 教育 理论 和 优秀 教师 的 教学 经 验 , 是 使 
“家 用 教学 专家 系统 ”达到 实用 化 程度 的 必然 要 求 。 现 
代 教 育 理 论 中 有 许多 内 容 是 我 们 可 以 直接 吸收 的 , 例 
如 教学 理论 和 各 科教 学 法 ,学 习 理论 .教育 与 心理 测量 
和 评价 技术 等 ,优秀 教师 的 教学 经 验 也 很 重要 ,能 为 处 
理 一 些 教学 中 的 模糊 性 问题 提供 事实 依据 ,同时 这 些 
经 验 是 有 牢固 的 实践 基础 的 ,对 其 进行 理论 总 结 后 ,可 
见 往往 是 各 种 教育 理论 的 综合 运用 及 个 人 探索 研究 的 
创新 成 果 , 优 化 程度 很 高 , 毫 无 教条 成 分 ,其 实用 价值 
不 可 低估 。 

在 利用 教育 理论 及 优秀 教师 教学 经 验 时 ,还 应 注 
意 到 “家 用 教学 专家 系统 ”是 进行 个 别 化 教学 而 不 是 集 
体 教 学 的 ,所 以 又 应 特别 注意 吸收 利用 关于 个 别 化 教 
学 方面 的 理论 和 经 验 。 

3. 充分 利用 硬件 环境 


从 中 华 学 习 机 的 性 能 看 ,要 为 它 开发 功能 完善 的 
“教学 专家 系统 ”是 困难 的 ,主要 问题 是 内 存 容量 小 ,而 
且 外 存 设 备 又 以 磁带 录音 机 为 主 ,容量 也 小 ,但 它 已 具 
备 汉字 功能 ,可 以 初步 实现 与 学 生 进行 对 话 。 另 外 其 图 
象 显示 和 音响 效果 等 性 能 ,也 为 教学 中 模拟 演示 提供 
了 条 件 ,充分 利用 这 些 有 利 条 件 及 CAI 技术 和 教育 理 
论 , 是 有 可 能 使 “家 用 教学 专家 系统 ”达到 实用 程度 的 。 

四 、 一 些 技术 性 问题 

目前 的 中 华 学 习 机 内 存 外 存 容量 小 是 研制 “家 用 
教学 专家 系统 ”的 主要 困难 ,所 以 应 以 此 为 突破 点 。 我 
们 可 以 考虑 对 专家 系统 在 不 影响 整体 功能 的 前 提 下 分 
解 为 若干 个 子 系统 ,以 减少 对 内 存 外 存 容 量 的 要 求 。 为 
此 ,可 对 教学 内 容 进行 适当 的 划分 ,部 分 地 实现 。 另 外 
考虑 学 生 学 习 的 需要 ,又 可 分 类 设计 和 编制 ,本 人 初步 
考虑 可 分 为 练习 型 自学 型 和 复习 型 三 种 ， 

练习 型 主要 用 于 学 生 每 天 的 课 后 练习 ,对 应 于 当 
天 课堂 教学 内 容 进行 练习 ,包括 完成 家 庭 作 业 和 达到 
教师 提出 的 要 求 。. 这 类 专家 系统 内 容 应 能 覆盖 住 中 小 
学 教学 大 纲要 求 的 全 部 课堂 教学 内 容 。 它 是 属于 辅助 
课堂 教学 的 ,也 是 最 重要 的 ,最 经 常 使 用 的 。 应 具备 的 
功能 是 :向 学 生 提 供 系 列 练习 题 ,检查 学 习 回 答 结果 ， 
分 析 其 问题 产生 的 原因 ,予以 正确 的 指导 ,并 对 其 学 习 
水 平 作 出 评价 ,提出 下 一 目标 和 相应 的 练习 题 .学 生 在 
这 个 过 程 中 做 练习 。 

检查 的 方式 是 以 学 生 当前 所 学 内 容 为 准 , 按 “ 识 
记 、 理 解 ,应 用 分析、 综合、 评价 ”这 六 级 学 习 水 平分 别 
设置 测试 题 , 让 学 生 回答 而 查 明 学 生 的 情况 .测试 题 可 
充当 练习 题 , 具 有 足够 的 数量 ,能够 覆盖 对 应 的 课堂 教 
学 内 容 , 并 能 随机 抽取 组 合 .为 便于 处 理 和 减少 学 生 练 
习 和 答题 的 工作 量 , 题 目 最 好 是 采用 标准 化 试题 ,这 样 
做 能 很 快 了 解 学 生 的 情况 。 然 后 计算 机 经 分 析 和 判断 
告诉 学 生 达 到 的 水 平和 存在 的 问题 实质 所 在 ,进行 及 
时 的 指导 .这 种 指导 方式 可 以 是 向 学 生 提 出 哪 部 分 知 
识 是 他 们 未 搞 清楚 的 、 应 该 怎样 理解 等 ,或 者 指出 其 解 
题 方 法 或 思考 上 的 错误 实质 所 在 ,应 该 如 何 纠正 等 等 ， 
接着 提出 达到 下 一 级 水 平 的 目标 .如 此 重复 直至 使 学 
生 达 到 较 高 的 学 习 水 平 为 止 . 这 些 功 能 是 容易 实现 的 ， 
当前 教育 评价 ,心理 与 教育 测量 技术 提供 了 一 定 的 条 
件 , 并 有 一 些 现成 评价 手册 可 供 直 接 利 用 ,它们 能 使 计 
算 机 较 少 地 涉及 推理 过 程 ,简单 易 行 。 

自学 型 有 别 于 练习 型 之 处 是 由 于 让 学 生 在 未 经 任 
何人 指导 下 完整 、 系 统 地 学 习 某 一 课程 或 某 部 分 知识 。 
内 容 范 围 可 包括 中 小 学 主要 课程 及 一 些 职业 技术 教育 
课程 建立 这 样 的 专家 系统 要 比 练习 型 复杂 得 多 ,但 可 
以 在 练习 型 基础 上 进一步 开发 而 成 ,以 节省 人 力 和 时 
间 。 
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复习 型 是 专用 于 阶段 复习 和 系统 复习 的 , 它 具 有 
检测 学 生 各 部 分 知识 掌握 程度 和 水 平 ,对 整体 或 部 分 
学 习 水 平 作出 评价 ,指出 问题 所 在 ,并 进行 指导 的 功 
能 。 复 习 型 更 多 地 是 向 学 生 提 出 综合 性 问题 ,以 便 检查 
出 问题 .复习 型 较 练习 型 和 自学 型 简单 些 , 可 考虑 优先 
开发 。 

一 般 开发 专家 系统 是 经 过 知识 的 提取 、 建 立 模型 、 
汇编 , 求 精 等 过 程 , 并 且 为 避免 重复 劳动 而 先 开 发 系统 
工具 .这 些 大 都 为 技术 性 较 强 的 工作 ,其 中 知识 提取 、 
建立 模型 是 开发 过 程 中 的 关键 工作 。 

知识 的 提取 是 专家 系统 中 最 重要 的 问题 ,在 此 基 
础 上 可 以 建立 专家 系统 的 模型 。 一 旦 模型 建成 ,计算 机 
软件 工程 技术 人 员 便 可 着 手 程序 设计 ,将 专家 的 知识 
存 入 知识 库 ,为 推理 机 提供 基础 ,进而 求 精 修改 .前 面 
提 到 ,建立 “家 用 教学 专家 系统 是 将 教育 理论 和 优秀 
教师 的 教学 经 验 汇集 起 来 ,对 学 生 进 行 最 优化 的 教学 ， 
它 相当 于 一 个 具有 很 高 水 平 的 教师 ,对 教学 内 容 , 教 育 
理论 的 掌握 都 是 高 水 平 的 ,而 且 有 丰富 的 教学 实践 经 
验 。 所 以 ,教育 理论 和 优秀 教师 的 教学 经 验 是 我 们 要 提 
取 的 重要 知识 内 容 。 为 保证 提取 知识 的 质量 ,提取 工作 
应 有 教育 理论 专家 和 优秀 教师 参加 。 

专家 系统 的 结构 一 般 由 以 下 几 部 分 组 成 : 

人 知识 库 。 存 放 与 问题 求解 相关 的 各 类 知识 。 

@ 全 局 数据 库存 放 与 问题 求解 过 程 相关 的 数据 。 

图 推理 机 .选择 和 执行 知识 库 中 的 知识 完成 问题 
`” 的 求解 任务 。 

图 解释 部 分 回答 用 户 的 提问 ,对 系统 获得 结论 的 
过 程 作出 解释 。 

@@ 知 识 获取 部 分 .辅助 知识 库 的 扩充 。 

教学 过 程 是 学 生 通 过 教师 的 引导 、 传 授 来 掌握 知 
识 和 技能 ,所 以 建立 模型 的 关键 任务 是 建立 知识 模型 
和 教学 模型 。 

知识 模型 对 应 于 知识 库 , 主 要 用 于 存放 教学 内 容 
和 对 应 的 练习 题 、 测 试题 ,由 教学 模型 向 学 生 提 供 。 知 
识 库 的 建立 可 以 现行 教材 内 容 为 准 ,包括 基本 理论 和 
应 用 知识 等 ,以 及 相应 大 量 的 学 生 学 习 能 力 水 平 检测 
题 ` 识 记 和 技能 训练 题 等 。 

教学 模型 对 应 于 全 局 数据 库 ,推理 机 、 解 释 部 分 和 
知识 获取 部 分 ,用 于 完成 问题 的 求解 .回答 学 生 问题 及 
自学 任务 .问题 的 求解 主要 是 了 解 学 生 学 习 水 平和 问 
题 所 在 ,分 析 原 因 , 由 此 决定 采取 某 种 教学 策略 或 教学 
方法 ,回答 学 生 提问 部 分 原则 上 来 讲 是 允许 用 户 任 意 
提出 问题 的 ,但 这 在 第 五 代 计算 机 出 现 之 前 难以 达到 。 
鉴于 教学 的 实际 ,可 以 变 学 生 提 出 问题 为 计算 机 主动 
提出 问题 或 者 说 主动 了 解 学 生 的 问题 ,这 就 成 了 求解 
部 分 的 工作 了 ,而 它 主要 是 向 学 生 介绍 知识 和 解决 问 
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题 的 方法 等 。 自 学 习 的 主要 任 务 是 通过 学 习 来 扩充 知 
识 库 , 但 教学 内 容 在 中 小 学 阶段 是 很 基本 的 ,不 经 常 变 
动 ,所 以 不 必 在 此 花 很 多 力量 。 

概括 地 说 ,知识 模型 是 教学 内 容 和 各 种 题目 的 有 
新 集 .教学 模型 是 决定 采取 某 种 教学 策略 或 教学 方法 ， 
处 理学 生 执行 状况 和 各 种 错误 的 模块 。 这 两 个 模型 建 
立 后 即 可 基本 形成 “家 用 教学 专家 系统 ”。 

“家 用 教学 专家 系统 ”的 研制 是 一 项 比较 复杂 的 工 
程 ,但 其 社会 效益 和 经 济 效益 巨大 ,这 项 工作 的 开展 极 
为 必要 ,现在 已 有 一 定 的 基础 ,也 是 可 行 的 ,有 关 部 门 
应 积极 组 织 领导 这 项 工程 ,以 便 早 日 开发 。 
厂 瑟 汪汪 匀 匆 式 式 式 匀 瑟 来 瑟瑟 开 匀 瑟 瑟 瑟 瑟瑟 


“计算 机 辅助 教育 


在 中 华 教学 网 上 实现 计算 机 
课程 标准 的 意见 (小 学 部 分 ) 


深圳 市 南 园 小 学 


一 目标 : 
1. 培养 学 生 的 动作 技能 
1) 了 解 计 算 机 的 基本 作用 及 其 构成 的 主要 部 件 ; 
2) 学 会 微型 计算 机 的 开 、 关 机 及 键盘 操作 ; 
3) 学 会 计算 机 的 简单 应 用 。 
2. 培养 学 生 的 智力 技能 
1) 学 会 LOGO 语言 的 基本 作 图 命令 及 简单 过 程 的 
定义 ; 
2) 学 会 BASIC 语言 的 基础 及 用 途 ; 
3) 通 过 模拟 游戏 激发 学 生 兴 趣 。 
3. 辅助 教学 
1) 用 计算 机 进行 语文 ,数学 .英语 方面 的 部 分 教学 
试验 ; 
2) 用 计算 机 进行 语文 .数学 .英语 方面 的 标准 化 习 
题 练 习 测 验 。 
4. 通过 学 习 使 学 生养 成 爱 计 算 机 、 学 计算 机 、 用 计算 机 
的 习惯 。 
二 、 课 时 安排 ， 
小 学 电子 计算 机 课程 在 四 ,五 年 级 和 六 年 级 上 学 
期 开设 ,一 共 85 学 时 (每 周 1 学 时 ) 。 
三 教学 内 容 与 教学 要 求 : 
(一 ) .总 学 时 分 配 ， 
1. 计算 机 的 基础 部 分 (12 学 时 ) 
1) 了 解 计算 机 4 学 时 
2) 键 盘 操 作 4 学 时 
3) 汉 字 的 拼音 输入 4 学 时 
2. 计算 机 的 语言 部 分 (46 学 时 ) 


吴 庆 元 


1)LOGO 语言 38 学 时 
2)BASIC 语言 8 学 时 
3. 辅助 教学 部 分 (27 学 时 ) 
4. 模拟 与 游戏 部 分 ， 


此 部 分 内 容 穿插 在 每 节 下 课 前 5 分 钟 操作 ,85 学 时 
可 游戏 425 分 钟 , 约 10 个 学 时 。 

(二 ) .每 学 期 安排 ; 

四 年 级 上 学 期 ， 
1. 了 解 计 算 机 4 学 时 

1) 内 容 :什么 叫 计算 机 、 计 算 机 的 发 展 和 特点 、 计 
算 机 的 主要 用 途 、. 计 算 机 的 主要 部 件 . 计 算 机 工作 的 原 
理 ; 
” 2) 要 求 :学 生 能 识 记 、 理 解 、 破 除 神秘 感激 发 兴 
趣 ,此 部 分 内 容 主 要 通过 教学 网 演示 软件 和 放 录 像 手 
段 进行 授课 ,学 生 观 察 。 
2. 键盘 操作 4 学 时 

1) 内 容 : 键 盘 的 排列 及 功能 键 使 用 ,键盘 操作 的 基 
本 要 求 . 基 本 指法 .计算 机 操作 基本 规程 ; 

2) 要 求 : 学 生 掌 握 规程 .操作 正确 ,老师 通过 教学 
网 传送 键盘 练习 程序 供 学 生 练 习 。 
3. 汉字 的 拼音 输入 ”4 学 时 

1) 内 容 : 汉 字 系 统 功能 .汉字 系统 进入 及 退出 , 拼 
音 输入 方法 ,汉字 的 输出 ; 

2) 要 求 :学 生 输 入 正确 ,并 通过 教学 网 在 教师 打印 
机 上 打印 出 自己 输入 的 汉字 内 容 ( 如 小 诗 . 儿 歌 等 ) 。 
4. 辅助 教学 ”5 学 时 

1) 内 容 :语文 .数学 .英语 的 示 教 ,( 选 一 节 典 型 的 
课 ) ,语文 .数学 的 练习 

2) 要 求 :学 生 通 过 老师 示 教 增强 学 习 语 文 、 数 学 、 
英语 的 兴趣 ,在 练习 作业 时 力争 正确 .快速 ,此 部 分 内 
容 教师 充分 利用 教学 网 的 功能 ,达到 教学 与 练习 的 计 
算 机 化 。 

四 年 级 下 学 期 ， 
1.LOGO 语言 基本 作 图 命令 10 学 时 

1) 内 容 :LOGO 语言 概述 DRAW、FD、BK 、RT、LT、 
HT、ST、PU、PD、REPEAT; 

2) 要 求 : 学 生 在 感 兴趣 的 情感 下 熟练 掌握 上 述 命 
令 , 并 独立 想象 和 创造 喜爱 的 图 形 ,老师 应 在 教学 网 上 
演示 大 量 海龟 作 图 范例 ,激发 学 生 兴 趣 , 且 每 个 命令 应 
先 通过 示 教 ,让 学 生 观 察 ,而 后 练习 。 
2. 辅助 教学 7 学 时 

1) 内 容 : 同 上 学 期 ,数学 3 学 时 ,其 它 各 2 学 时 ; 

2) 要 求 : 同 上 学 期 。 

五 年 级 上 学 期 ， 
1.LOGoO 语言 11 学 时 

1) 内 容 :基本 命令 复习 ,海龟 的 测 位 定位、 不 同 模 


式 的 转换 ,不 带 参 数 过 程 的 定义 、 调 用 、 修 改 . 常 用 编辑 
过 程 . 子 过 程 .过 程 的 尾 递归 ; 

2) 要 求 : 同 上 学 期 LOGO 语言 学 习 要 求 。 
2. 辅助 教学 ”6 学 时 

1) 内 容 :同上 学 期 ,语文 ?学 时 ,数学 3 学 时 ,英语 1 
学 时 

2) 要 求 : 同 上 学 期 。 

五 年 级 下 学 期 ， 
1.LOGO 语言 11 学 时 

1) 内 容 : 不 带 参数 过 程 的 复习 , 带 参数 过 程 . 子 过 
程 . 尾 递归 过 程 .LOGO 语言 的 程序 结构 .条 件 语句 、 算 
术 表 达 式 、 输 出 语句 、 赋 值 语句 .打印 语句 、 三 种 基本 函 
数 ; 2 
2) 要 求 : 对 学 生 要 求 理解 即 可 。 

2. 辅助 教学 

1) 内 容 : 语 文 、 数 学 .英语 各 2 学 时 ; 

2) 要 求 ; 同 上 学 期 。 

六 年 级 上 学 期 ， 
1.LOGO 语言 6 学 时 

1) 内 容 :LOGO 的 音乐 功能 .LOGO 程序 的 综合 练 
习 、 空 间 管理 和 磁盘 操作 系统 ; 

2) 要 求 : 学 生 全 面 领会 和 复习 程序 的 编制 过 程 , 用 
积木 式 的 构思 在 磁盘 上 存 下 漂亮 的 图 案 , 作 为 毕业 纪 
念 , 老 师 注 意 引 导 学 生 程序 编程 过 程 的 思维 方式 。 

2. BASIC 语言 8 学 时 

1) 内 容 :BASIC 语言 的 基本 概念 .程序 的 输入 、 修 
收 及 运动 方法 、 磁 盘 的 格式 化 .存盘 . 取 盘 .复制 磁盘 ; 

2) 要 求 : 学 生 识 记 BASIC 语言 基本 概念 ,通过 二 
个 或 多 个 游戏 程序 输入 掌握 其 方法 ,学 会 磁盘 的 格式 、 
存 . 取 盘 , 掌 握 利用 工具 盘 复 制 磁 盘 ,老师 通过 教学 网 
传输 BASIC 的 一 些 优秀 教学 和 游戏 程序 ,并 通过 该 网 
反馈 学 生 的 操作 信息 。 

3. 辅助 教学 3 学 时 

1) 内 容 : 编 制 语文 ,数学 .英语 的 练习 程序 ; 

2) 要 求 : 学 生 用 现 有 的 工具 软件 或 程序 、 编 制 一 些 
简单 的 语文 .数学 .英语 练习 程序 ,老师 把 工具 软件 或 
实用 程序 通过 教学 网 输入 到 学 生 的 主机 上 ,指导 学 生 
自己 编制 。 

四 ,教材 选 编 : 根 据 课程 标准 编制 出 适合 中 华 教学 
网 教学 的 教材 ,该 教材 应 配 有 大 量 在 教学 上 使 用 的 教 
学 游戏. 科普、 实用 工具 软件 。 

五 .训练 形式 与 要 求 : 

训练 形式 通过 教学 网 示 教 、 演 东 、 学 生 观 察 , 在 网 
络 上 统一 练习 或 模拟 游戏 ,少量 的 课堂 书面 作业 等 形 
式 。 

训练 过 程 是 在 教师 机 的 指挥 下 有 序 、 严 格 、. 规 范 、 
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愉快 的 环境 中 进行 。 

六 、 教 学 组 织 和 教学 方法 ; 

由 于 在 中 华 教学 网 上 实施 教学 , 故 大 大 提高 教学 
进度 ,每 学 时 采用 教师 示 教 、 演 示 、. 学 生 观 察 、 操 作 练 
习 , 小 组 竞赛 .个 人 评比 、 模 拟 游 戏 的 程序 进行 组 织 。 

在 教学 方法 上 :注意 儿童 心理 发 展 特点 ,认识 能 力 
发 展 的 过 程 , 以 启发 性 教育 方法 ,在 有 趣 加 快乐 的 情景 
中 ,让 儿童 的 个 性 能力、 智力 得 到 发 展 。 

七 .教学 评价 与 成 绩 核定 : 

从 知识 .能力 ,情感 .品德 四 方面 来 评价 知识 和 能 





“计算 机 辅助 教育 ， 
学 妇 物 理 力学 本 外 读 向 加 天 统 


可 阳 师 专 田力 李 灯 安 朱 元 镇 昌 爱 华 

本 系统 是 受 湖 北 省 物理 学 会 师 专 分 会 委托 ,主要 
用 BASIC 语言 并 辅 以 6502 汇 编 语言 编写 的 在 APPLEII 
软 汉 字 系 统 下 运行 的 力学 试题 库 管 理 系统 。 

”选用 BASIC 语言 主要 是 利用 它 丰 富 的 图 形 功 能 ， 
从 而 实现 试题 和 图 形 的 混合 打印 。 所 有 操作 在 屏幕 上 
都 有 提示 , 供 你 自由 选择 ,只 需 几 分 钟 系统 即 可 按照 使 
用 者 的 要 求 打 印 出 一 份 图 文 并 茂 ,整齐 美观 的 力学 试 
卷 , 并 可 给 出 试题 答案 。 

系统 以 模块 方式 构成 ,通过 机 内 一 段 特 殊 内 存 空 
间 实 现 试题 代码 和 数据 的 传递 ,这 样 一 方面 成 功 地 链 
接 了 各 个 功能 模块 , 另 一 方面 也 减少 了 访问 磁盘 的 次 
数 ,加 快 了 运行 速度 ,系统 的 主要 功能 如 下 : 

一 、 编 制 试卷 

按照 省 物理 学 会 师 专 分 会 力学 协作 组 商定 的 抽 题 
原则 ,将 力学 分 为 九 章 , 难 度 等 级 分 为 A,B,C 三 级 ,要 


求 系统 在 随机 抽 题 组 成 试卷 时 应 满足 ; 
1. 题 数 比例 
选择 题 和 填空 题 A:B 一 6:4 
计算 题 A:B:C 王 3:1:1 
2. 内 容 分 布 
主要 讲 一 下 第 一 ,二 ,三 ,四 ,七 , 八 各 章 填空 题 和 


计算 题 的 分 布 ,要 求 如 下 : 

填空 题 :第 一 和 第 二 章 任 选 一 题 , 第 三 和 第 四 章 任 
选 一 题 ,第 七 和 第 八 章 任 选 一 题 。 

计算 题 : 对 上 述 各 章 的 要 求 相 同 , 但 必须 与 填空 题 
交错 抽 选 。 

下 面 以 填空 题 的 抽 选 为 例 进行 说 明 

数组 T(GL,J) 表 示 第 工 章 ,第 J 级 难度 填空 题 的 总 
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力 , 通 过 在 计算 机 上 进行 语文 、. 效 学 .英语 测验 游戏 比 
赛 . 语 言 的 书面 考试 ,网络 上 考试 与 实践 操作 来 评价 ， 
记分 可 用 理论 与 实践 操作 百分制 记 法 表示 。 

情感 与 品德 可 以 从 学 生 在 课堂 上 表现 进行 评价 。 

八 . 配 套 措 施 : 

每 个 小 学 建 一 个 计算 机 教室 

配置 :26 台 中 华 学 习 机 和 26 台 显示 器 (其 中 25 台 作 
为 学 生 用 ,一 台 作 为 教师 机 用 ) ,一 个 打印 机 、 一 台 磁 盘 
机 (教师 .学 生 共 享 ), 一 套 26 头 的 中 华 教学 网 。 

经 费 : 除 课 桌 椅 外 ,上 述 设备 在 5 万 元 内 可 配置 。 
Ne 
题 数 . 对 本 系统 I 王 1 一 9,J 王 1,2, 第 300 句 随机 选择 是 
在 第 一 ,三 ,七 章 还 是 在 第 二 ,四 , 八 章 选 题 . 第 310-335 
句 在 所 选 定 的 三 章 中 按 随 机 次 序 各 抽 一 题 , 子 程序 
2000 随 机 给 出 试题 难度 并 赋值 给 N$ ,第 350 一 365 句 
判断 各 种 难度 试题 的 比例 是 否 符合 抽 题 原则 ,380 句 、 
400 句 分 别 给 出 所 选 章节 A,B 型 难度 试题 的 总 题 数 ， 
子 程序 2200 根 据 以 上 信息 生成 相应 章节 ,相应 难度 等 
级 试题 的 代码 ,该 代码 究竟 表示 该 章节 和 该 难度 等 级 
中 的 第 几 题 则 完全 是 由 子 程序 2200 随 机 生成 的 ,系统 
根据 此 代码 在 题库 盘 中 调 题 。 

系统 除了 可 以 按 抽 题 原则 随机 选 题 组 成 试卷 外 ， 
为 满足 不 同 命题 者 和 不 同类 型 考试 的 需要 ,还 设置 了 
“人 工 选 题 ? 功 能 ,采用 人 机 对 话 的 方式 由 系统 按照 使 
用 者 指定 的 试题 数量 ,章节 ,题目 类 型 和 难度 等 级 在 题 
库 中 随机 选 题 组 成 试卷 。 

另外 ,为 方便 使 用 者 查看 试题 内 容 , 当 每 一 题 显示 
在 屏幕 上 后 ,屏幕 第 十 二 行 提 供 三 种 选择 

1. 打 印 2. 看 一 看 3. 换 一 题 
一 旦 选择 了 功能 3, 系 统 在 随机 提供 另 一 相同 类 型 试题 
的 同时 自动 更 换 有 关 代 码 和 数据 ,以 保证 试题 答案 正 
确 ,最 后 还 安排 有 "重新 打印 试卷 "等 功能 , 极 大 地 方便 
了 使 用 者 。 

二 、 统 计 分 析 

本 功能 采用 教育 统计 和 测量 方法 对 考试 结果 进行 
分 析 ,操作 者 只 需 输 入 原始 数据 (对 选择 题 输入 各 考生 
的 选项 ,其 它 题 输入 实 得 分 ), 系 统 即 可 自动 完成 成 绩 
分 布 和 排序 ,分 析 试 题 的 难度 ,区 分 度 以 及 试卷 的 信 度 
和 效 度 等 参数 ,并 可 统计 出 在 每 道 选择 题 上 选择 A,B， 
C,D 选项 及 空 选 的 人 数 ,便于 分 析 各 选择 分 支 的 诱 选 
率 , 以 便 改 进 试题 质量 。 

原始 数据 的 存 贮 采用 文本 文件 ,突破 了 试题 量 大 、 
人 数 多 .APPLE I 容量 小 的 困难 ,一 次 最 多 可 完成 100 
道 试题 ,400 名 考生 成 绩 的 统计 分 析 , 且 每 输入 五 名 考 
生 的 原始 数据 后 自动 存盘 ,也 可 将 全 部 考生 成 绩 分 批 
输入 ,最 后 一 次 完成 统计 ,防止 突然 断 电 或 其 它 原因 造 
成 数据 丢失 。 

更 改 题库 盘 中 的 试题 ,本 系统 就 可 成 为 相应 课程 
考试 的 管理 系统 。 


“计算 机 辅助 教育 


《微机 分 班 》 软 件 的 算法 设计 


山西 省 康 杰 中 学 计算 机 室 “” 郭 林涛 


目前 ,学 校 传统 的 分 班 方法 是 严格 按照 学 生 的 入 
学 成 绩 ,将 新 生 分 成 若干 平行 班级 .但 是 ,考试 成 绩 与 


学 生 的 智力 两 者 之 间 并 非 线性 关系 。 因 为 在 判断 学 生 


智力 高 低 这 一 问题 上 ,分 数 的 价值 随 学 科 而 异 , 所 以 ， 
以 各 学 科 分 数 的 简单 相 加 作为 分 班 依据 是 不 合理 的 。 
其 次 ,每 年 各 学 科 试 题 的 难 易 程度 .评分 标准 都 不 尽 相 
同 , 绝 对 化 的 分 数 拓 盖 了 众多 随机 因素 。 所 以 ,所 分 得 
班级 之 间 总 体 智力 相差 较 大 ,几乎 每 年 都 有 所 谓 的 “ 弱 
智 班 ?和 “两极 分 化 班 ”>, 给 学 校 班级 管理 带 来 困难 ,不 
利于 各 班组 之 间 的 平等 竞争 .鉴于 上 述 情 况 ,我 们 着 手 
开发 “智力 分 班 ? 软 件 。 所 谓 智力 分 班 就 是 通过 对 学 生 
统考 成 绩 的 统计 处 理 , 得 出 体现 分 数 相对 价值 的 标准 
分 ,用 AHP 方法 给 各 科 赋 以 “权重 ”然后 对 标准 分 加 
权 平 均 , 得 到 描述 学 生 智力 的 重要 参数 称 为 智力 分 数 ， 
用 智力 分 数 代替 统考 成 绩 分 班 从 根本 上 解决 了 分 班 时 
的 智力 不 平衡 问题 ,为 学 校 科 学 管理 提供 了 良好 环境 ， 
对 学 校 工作 量化 打下 了 良好 基础 。 

分 班 软件 是 由 五 大 功能 模块 构成 的 , 即 :录入 统考 
成 绩 , 计算 智力 分 数 ,按照 智力 分 班 查阅 分 班 情况 , 打 
印 分 班 结果 。 其 中 就 计算 智力 分 数 和 按照 智力 分 班 两 
大 部 分 谈 谈 算 法 设计 。 

一 、 计 算 学 生 的 智力 分 数 

1. 求 各 人 标准 分 矩阵 

设 : 新 生 M 名 ,考试 科目 N 门 。Xij 表示 第 i 门 学 
科 第 j 个 学 生 的 统考 分 数 ， 则 第 ; 门 学 科 的 平均 分 

x 


去 全 
XX， 1 


该 学 科 均 方差 : 


> on -XD)8 
0i 一 外 二 -一 克 
XN 一 X 


第 i 门 学 科 第 j 个 学 生 的 标准 分 Xi 一 一 一 一 (si 
<N,1sj<M) 故 第 j 个 学 生 的 标准 分 抢 阵 为 (Xiy,Xs， 
X3i，X…Xn) 。 

2. 求 各 科 权 重 抢 阵 

在 学 生 智力 评价 指标 体系 中 ,各 种 权重 分 配 的 正 
确 与 否 , 关 系 到 评价 的 总 体 效果 ,具有 导向 作用 .我们 








运用 AHP 法 来 确定 各 科 的 权重 数值 。 

“AHP? 法 即 “ 层 次 分 析 方 法 ”, 是 美国 著名 运筹 学 
家 'T'L'Saatg' 在 七 十 年 代 初 提出 的 一 种 系统 分 析 的 
决策 方法 ， 它 记 决策 过 程 中 的 定性 和 定量 因 索 有 机 地 
结合 起 来 ,用 统一 的 方式 加 以 处 理 。 

1. 构造 判断 矩阵 。 用 AHP 法 确定 评价 指标 的 权重 
时 ,决策 者 先 要 分 析 层 次 结构 中 诸 元 素 的 关系 。 一 般 地 
讲 , 同 一 层次 中 的 元 素 对 下 一 层 某 些 元 素 起 支配 作用 ， 
同时 又 受 上 一 层次 元 素 的 支配 .AHP 方法 分 析 的 目的 
在 于 以 上 层 某 元 素 为 准则 ,采用 两 两 比较 方式 ,确定 那 
些 受 其 支配 的 下 层 元 素 间 的 相对 重要 性 .为 此 ,必须 构 
造 一 个 “两 两 比较 判断 矩阵 ”。 

为 评价 学 生 智力 ,我 们 拟定 下 述 二 级 指标 作为 递 
阶层 次 结构 的 一 部 分 。 

语文 (A-21) 
政治 (A-22) 
数学 (A-23) 
学 生 智力 参数 (A-2) 新 间 全 
化 学 (A-25) 
外 语 (A-26) 

我 们 以 上 层 元 素 ( 学 生 智力 参数 A-2) 为 准则 时 ， 
需要 对 (A-21 一 A-26) 分 别 两 两 比较 其 重要 程度 .比较 : 
过 程 必须 按 下 列 标 度 记 录 结 果 。 

指标 相对 重要 性 标 度 等 级 表 ( 表 1》 
相对 重要 程 出 定 义 说 明 

1 同等 重要 两 者 对 准则 的 贡献 相同 

上 全 | 略为 重要 一 个 比 另 一 个 稍微 重要 | 
-个 比 另 一 个 明显 重要 


基本 重要 
一 个 比 另 一 个 强烈 重要 
且 优 势 已 在 实践 中 证 明 
9 | 绝对 重要 胃 显 重要 的 程度 已 经 断言 为 最 高 











二 








7 确实 重要 

















2、4.6.8 为 上 述 相 邻 判断 的 中 间 值 。 若 因素 i 与 j 
比较 得 到 ai, 则 因素 j 与 让 比较 的 判断 为 1/ai。 例 如 , 决 
策 者 若 认 为 “ 2 政治 "明显 重要 ,应 取 标 准 度 值 
为 5; 反 之 , 则 应 取 为 二 5 ,对 N 个 元 素 逐 对 比较 的 结果 
将 得 到 一 个 N 维 判 断 纸 了 8 A 一 (ai)nx" 是 一 正 的 互 反 拖 
阵 。 在 智力 评价 体系 中 ,各 要 素 之 间 标 度 的 确定 可 采用 
模糊 定性 的 方法 ,也 可 运用 实验 统计 的 方法 。 
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2. 计算 各 科 权 重 数值 


N 
Ss= >K，W=K/SCG<iKN) 
ti 一 1 


则 权重 矩阵 为 (WwWa,Wa,…Wi…Ww) 

3. 一 致 性 检验 

由 于 因素 的 多 样 性 ,要 求人 们 的 判断 具有 大 体 的 
一 致 性 ,不 能 出 现 “ 甲 比 乙 极端 重要 , 乙 比 两 极端 重要 ， 
而 两 又 比 甲 极 端 重要 ”这 种 违反 逻辑 的 现象 ,因此 , 需 
要 进行 “一 致 性 检验 ”。 

(1 计算 一 致 性 指标 Cn 


先 求 Cai)wn 和 矩阵 的 特征 根 Ln 。 B 一 之 mxXw， 


[= 之 (B/WD)MN 然后 计算 一 致 性 指标 Cu= (Lo-N)/ 
(N-1) 

《2 计算 一 致 性 比例 值 CR,CR 王 CR,, 其 中 R, 是 
平均 随机 一 致 性 指标 . 若 CR<0. 1 时 ,判断 徐 阵 的 一 致 
性 方 可 接受 ,否则 提交 决策 者 重新 考虑 对 符 阵 进行 修 
改 。 

人 .计算 学 生 的 智力 分 数 。 

由 于 各 科 权 重 符 阵 为 (Wi, W:， Wi… W,), 这 


里 之/W,=1, 若 第 j 个 学 生 的 标准 分 矩阵 为 (XuvXar… 
Xu) 则 该 生 标准 分 的 加 权 平均 值 为 ， 


乙 = 之 /Xu"K., 这 个 2 值 是 描述 学 生 智力 的 重要 
参数 , 称 其 为 智力 参数 。 

二 按 学 生 智力 方 阵 变换 分 班 

智力 分 班 就 是 按 学 生 的 性 别 、 智 力 分 数 均匀 地 分 
成 若干 平行 班 .现行 的 方法 是 将 全 体 学 生 按 智力 分 数 
分 男女 排队 ,将 排队 得 到 的 名 次 存 入 A 数组 ,再 对 A 
数组 的 元 素 按 行 扫描 形式 排列 成 矩阵 ,使 矩阵 的 列 数 
等 于 班级 数 , 且 一 行 自 左 向 右 扫描 ,下 一 行 着 之, 顺 间 
交替 。 若 班级 数 为 5, 则 编排 甜 阵 如 下 所 示 ， 


AD Ad) Ad) 和 Ad) As) 
Ado) Ad) Ad) Ad Ade) 
AdD Ad2?) Ads3) Ad Ads) 


取 抢 阵 的 每 一 列 , 即 组 成 一 个 班级 .这 种 类 似 “ 单 摆 振 
功 ” 的 方法 造成 了 高 智力 学 生 在 班 某 级 集中 ,会 出 现 
“弱智 "班级 。 我 经 过 研究 分 析 , 对 上 述 分 班 方法 进行 了 
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改进 ,采用 了 *“ 方 阵 变换 的 方法 .这 种 方法 要 求 每 个 平 
行 班 里 男女 生 人 数 基 本 均匀 ,相同 学 号 的 学 生 均 等 , 若 
新 生 要 分 成 5 个 平行 班 ,每 班 十 名 学 生 , 编 班 方法 如 表 
2 。 

由 此 可 见 , 表 的 每 列 (班级 ) 都 有 第 一 、 第 二 .… 第 
十 号 学 生 , 而 且 各 班 学 生 总 体 智力 分 布 合理 。 

在 新 生 中 分 单 科 优势 实验 班 ,基本 方法 是 ( 先 分 单 
科 优势 实验 班 ,其 基本 方法 是 ) 先 分 单 科 优势 班 ,然后 
把 其 余 的 学 生 按 上 述 方法 分 成 平行 班 。 单 科 优 势 班 和 
平行 班 同一 层次 的 学 生 智力 分 数 相当 ,不 同 的 是 单 科 
具有 优势 而 已 。 


编 班 “ 方 阵 变换 ”图 ( 表 2) 

































































该 软件 在 设计 上 采用 了 面向 用 户 的 设计 思想 , 菜 
单 结构 全 部 汉化 ,操作 简单 ,使 用 方便 。 该 软件 在 设计 
上 采用 了 面向 数据 的 设计 方法 ,数据 结构 设计 合理 。 该 
软件 在 设计 上 采用 了 模块 结构 和 覆盖 技术 ,使 小 内 存 
可 以 运行 大 程序 。 完 全 可 以 解决 普通 中 学 500 余 名 新 生 
的 分 班 问题 , 且 软 件 性 能 良好 ,运行 稳定 。 
稚嫩 惟 本 本 本 本 司 改 本 惟 本 本 本 本 本 本 本 本 本 本 

更 正 

第 七 期 P18 汇 编 编 辑 软 件 中 0B80 一 0BA0 间 漏 
掉 了 以 0B90 为 标号 的 一 段 程序 现 增补 如 下 : 
0B90 一 Al 9%0 0 E8 A8 C8 D0 0 

E8 98 E4 A6 90 16 D0 04 

P 16. 汉字 文章 编辑 打印 程序 中 ,以 下 两 语 旬 为 正 

确 语 身 :1040 PRINT I;“)?3L$ (ID) 
2050 PRINTL$ (S); 


“ 计算 机 辅助 教育 ， 


四 


学 校 实 验 室 工作 评估 数据 处 理 系 羡 


云南 省 保山 师范 专科 学 校 ， 尹 天 益 


机 


物理 学 是 一 门 重要 的 基础 科学 ,而 物理 实验 又 是 式 。 在 程序 运行 的 提示 下 ,我们 只 需要 输入 反映 实验 室 
物理 教学 中 的 一 个 极为 重要 的 组 成 部 份 。 要 搞 好 物理 ”教学 ,管理 工作 水 平 的 27 项 原始 数据 (三 级 指标 ), 程 
实验 的 教学 工作 ,除了 要 有 一 支 水 平 较 高 .教学 经 验 丰 ” 序 即 可 对 数据 自动 进行 处 理 和 存盘 ,并 根据 用 户 的 要 
富 的 师资 队伍 和 较 完 善 的 实验 仪器 设备 外 ,还 须 有 一 ” 求 选 择 打 印 三 级 指标 得 分 汇总 表 和 实验 室 工作 评 估 报 
套 科 学 的 实验 室 工作 管理 制度 .只 有 这 样 , 才 能 使 有 限 告 书 。 输 出 的 报告 不 仅 给 出 了 反映 工作 水 平 的 各 级 指 
的 实验 仪器 设备 物 尽 其 用 ,才能 使 物理 实验 在 教学 过 标的 得 分 ,而 且 还 将 给 出 各 级 指标 的 换算 关系 .对 参加 


程 中 发 挥 其 应 有 的 作用 。 实验 室 工作 评估 的 人 数 及 打印 输出 报告 的 份 数 ,程序 
为 了 经 常 性 地 对 实验 室 工作 进行 自我 检查 和 完 ”都 可 根据 用 户 要 求 进行 自动 设置 程序 框图 如 下 所 示 。 
善 ,不 断 提 高 实验 的 教学 和 管理 水 平 ,我 们 根据 云南 省 . 本 程序 (已 省 略 ) 不 仅 适 用 于 学 校对 物理 .化 学 、. 生 


教育 厅 印 发 的 (师范 专科 学 校 实验 室 工作 评估 指标 体 ” 物 实 验 室 的 工作 进行 评估 ,也 可 作为 进行 其 它 类 似 工 

系 》 在 CEC 一 I 中 华 学习 机 上 用 BASIC 语言 编写 了 一 作 的 参考 。( 我 处 还 编写 了 教学 仪器 设备 管理 程序 ,用 

个 师 专 实验 室 工作 评估 数据 处 理 程序 。 汉字 DBASE 亚 在 IBM PC/XT 微机 上 实现 ,需要 者 可 
该 程序 对 数据 的 处 理 采 用 了 三 级 指标 方式 ,程序 ”与 笔者 联系 )。 

具有 简明 易 懂 的 汉字 人 机 对 话 窗 口 和 灵活 的 选择 方 

















Ic0: N<0 
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| 输入 评分 人 数 N 





















TI<I 十 1 


















输入 三 级 指标 得 分 并 






将 三 级 指标 得 分 










































































存 入 DATA 文 件 进行 相应 的 数据 处 理 
上 NO 
一 一 一 是 否 打印 报 下 7 一 一 
世 SS 
| 王 和 全 全 本 下 | 
1 2y | 
二 | | re 人世 | 纺 ie 行 | 
| 汪 请 | ”输入 打印 份 数 
+ y 
打开 DATA 文 件 并 计 打开 DATA 文 件 并 计算 
算 二 级 指标 得 分 一 、 二 级 指标 得 分 
Y Y 
打印 三 级 指标 得 分 汇总 表 | | 打印 评估 报告 书 ”， 
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“计算 机 辅助 教育 ， 





在 化 工 过 程控 制 的 教学 中 ,为 使 学 生 直观 地 理解 
控制 系统 基本 原理 ,一 般 使 用 一 些 简化 了 的 实际 物理 
系统 进行 实验 或 演示 。 这 类 装置 体积 庞大 且 功 能 不 足 ， 
效果 并 不 理想 。 

计算 机 仿真 技术 为 我 们 提供 了 一 种 新 的 实验 和 演 
示 手 段 。 笔 者 利用 Apple I 进行 数字 仿真 ,取得 了 很 好 
的 效果 。 它 设备 轻巧 ,结构 简单 ,能 灵活 地 改变 调节 器 
和 被 调 对 象 的 特性 。 从 最 基本 的 二 阶 系统 一 直到 很 接 
近 于 现场 的 存在 纯 滞 后 的 多 容 对 象 的 PID 调节 系统 ， 
都 可 以 进行 模拟 。 它 的 精度 高 ,运算 速度 快 , 通 用 性 强 。 
既 可 以 进行 课堂 演示 ,又 能 用 它 完成 控制 系统 教学 的 
大 部 分 实验 课题 ,还 能 进行 现场 实验 规定 的 模拟 练习 ， 
是 进行 系统 研究 和 人 员 训 练 的 有 力 工 具 。 

作为 一 个 教学 程序 ,要 求 它 使 用 起 来 尽 可 能 简单 
并 且 有 完善 的 图 像 显 示 。 在 这 个 程序 中 ,笔者 精心 编制 
了 一 个 绘图 子 程序 , 它 能 适应 选择 显示 范围 ,选择 刻度 
值 ,标注 刻度 值 . 并 且 在 高 分 辩 率 状态 下 显示 输入 信和 号 
和 输出 的 过 渡 过 程 曲线 。 由 于 这 些 选 择 都 是 自动 进行 
的 ,就 大 大 减少 了 使 用 者 的 工作 量 。 这 个 子 程序 可 以 直 
接 移 植 到 其 它 需 要 绘图 的 程序 中 使 用 ,有 效 地 减少 编 
制 教学 程序 的 难度 。 为 了 使 读者 能 够 更 好 的 理解 这 个 
程序 ,便于 调试 和 开拓 ,我 们 先 介绍 一 下 这 个 程序 编制 
的 基本 原理 。 

化 工 系统 中 的 调节 对 象 , 大 多 是 温度 .压力 、 流 量 
等 多 容 对 象 ,并 且 往 往 具 有 大 的 纯 滞后。 用 PI、PD 或 
PID 调节 器 使 系统 达到 所 要 求 的 品质 指标 。 可 画 出 系 
统 框 图 如 图 1 所 示 。 

xf 十 y(t) 


一 他 | pm |。 > 


“~ 站 S 二 :CS 十 1) 
图 1 典型 化 工 过 程控 制 系统 
本 程序 采用 离散 相似 法 进行 数字 仿真 ,也 就 是 在 
连续 系统 输入 及 输出 端 加 上 虚拟 采样 开关 。 该 开关 每 
h 秒 闭合 一 次 ,这 就 把 一 个 连续 系统 离散 化 了 。 为 使 输 
入 信号 复原 成 原来 的 信号 ,在 输入 端 加 一 个 保持 器 ,如 
图 2 所 示 。 建 立 仿真 程序 的 关键 是 要 把 环节 的 微分 方 
程 变 为 差分 方程 ,而 差分 方程 的 形式 又 与 所 选择 的 保 
24 
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谢 新 华 
持 器 有 关 。 
x(t) /xCnhy) uCb | 诈 续 ] y(t) /yCnhy) 
人 于 如 系 统 全 





“图 2 连续 系统 的 离散 化 


最 简单 的 保持 器 是 把 nh 时 刻 的 采样 值 不 变 的 保 
持 到 下 一 个 采样 时 刻 (n 十 1)h。 这 就 是 图 3 所 示 的 矩形 
近似 。 . 


hCt) 





】 

| 

| 

Ia 

LEn enal 

| ! | 

t 
(Cn 一 1t)h nh (人 (n 十 1)h 


3 所 形 近似 与 梯形 近似 
实际 上 ,输入 量 x(0 在 两 采样 时 刻 之 间 是 变化 的 ， 
这 就 会 引起 误差 。 为 减少 上 述 误差 ,可 假定 两 采样 时 刻 
之 间 ,保持 器 输出 为 一 斜坡 函 数 , 这 头 是 图 3 中 的 梯形 
近似 。 问题 是 计算 斜坡 的 斜率 需 知 道 un 十 1) 的 值 ,这 
在 很 多 情况 下 是 不 容易 办 到 的 .实用 中 ,往往 用 前 一 采 
样 同 周期 的 斜率 代替 , 即 


uCn)-uCn-1) 
U (ns 


这 就 是 滞后 一 拍 的 梯形 近似 。 它 能 在 运算 量 增 加 
不 多 的 情况 下 ,有 效 的 提高 精度 ,本 程序 即 采 用 此 种 保 
持 器 。 我 们 可 以 写 出 主要 环节 的 差分 方程 如 下 。 

1. PID 调节 各 

其 微分 方程 为 


y-xtxe+a xdt+To 人 
式 中 x 一 输入 函数 jy 一 “输出 函数 。 
直接 写 出 差分 方程 为 
uCn 十 1)= 王 uCn) 十 [uCn)-uCn-1)] 
uz(Cn 十 1) 王 To。u' Cn) 


mo 十 D) 一 mm) 十 二 (uCn) 十 二 [uCn) 一 a 


Cn-1)]) 
yCn 十 1) 王 KeLui(Cn 十 1) 十 uzCn 十 1) 十 usCn 十 1)] ” 
人 (3) 
2. 惯性 环节 
其 微分 方程 为 T 空 +y=x 
而 差分 方程 为 


yCn 十 1)=y(n)e- 全 TuCn) 。(1 一 e- 全 十 [T 


(e- 人 一 1)+h um ee (47 
3. 纯 兆 后 环节 
纯洁 后 环节 的 传递 函数 为 Wu(S) 一 emos 
令 M=To/h, 其 差分 方程 可 写成 
yCn) 一 un-M) 0 (5) 


我 们 只 要 设法 使 输出 的 当前 值 等 于 输入 的 前 M 
倍 计算 步 长 时 刻 的 值 , 即 完成 了 纯 滞后 环节 的 仿真 。 

在 源 程序 中 ,第 9000 句 以 后 的 PRINT( 绘 图 ) 子 程 
序 , 是 一 个 功能 较 强 的 绘图 程序 .只 需 在 主 程序 中 送 入 
用 户 座 标 : 

WwW2 一 一 x 轴 最 大 范围 ; 

WwW4 一 一 y 轴 最 大 范围 ;L3 一 一 数据 量 ; 

HI1(D 一 一 x 轴 数 据 ; 

wen 于 0 , 工 3 

H3(D 一 一 y 轴 第 二 组 数据 ; 

K1 一 一 x 轴 分 度数 ;KK2 一 一 y 轴 分 度数 。 

用 GOSUB 9000 就 可 以 绘 出 理想 的 曲线 。 此 外 , 子 
程序 中 每 一 部 分 都 可 以 直接 调用 。 其 中 ,10000 句 为 把 
用 户 座 标 转换 为 屏幕 座 标 。10040 句 为 画 轴 。10060 句 
为 画 刻 度 ,并 标注 数值 .10020 句 为 “ 抬 笔 ?把 点 画 到 x， 
y 位 置 上 ,10010 句 为 从 上 一 次 落笔 点 向 x,y 位 置 画 一 
条 直线 。 本 程序 还 可 以 把 一 个 定点 或 浮 点 数 在 屏幕 上 
用 任意 可 接受 的 大 小 在 x,y 所 确定 的 座 标 位 置 上 显示 
出 来 。 这 里 只 需 说明 ,U1l 为 需 显示 的 数 ,Al1 为 字符 间 
隔 ,利用 GOSUB 10500 即 可 显示 这 个 数 。 仔 细 研 究 
10500 子 程序 可 见 , 这 是 一 个 图 形 表 子 程序 ,由 于 采取 
了 一 些 措施 ,使 建 表 和 调用 的 程序 变 的 极 简 单 。 用 户 还 
可 根据 需要 存 入 更 多 的 图 形 。 这 里 ,只 需 改 变 10670 句 
图 形 总 数 即 可 。 下 面 , 还 有 几 个 问题 需要 说 明 一 下 。 

1. 数据 的 归 一 化 

本 程序 所 用 数据 ,都 需 经 过 归 一 化 处 理 。 设 系统 实 


际 对 象 增益 为 K, 实 际 时 间 常 数 (包括 纯洁 后 时 间 ) 为 
To、T、 9 Tv。 我 们 令 


工 一 工 十 工 十 5 十 TN (6) 
则 计算 时 间 常 数 为 

To 一 To/TiTi 一 T/Ti esTNVTTT (7) 
而 实际 调节 器 的 系数 为 
Ke 一 Ke/K;T 一 T 。 TiTo 一 To 0 (8) 
2. 数据 结构 


在 程序 中 ,L1 为 计算 步 长 ,L2 为 倍数 (LI1。L2 为 
出 数 周期 ),L3 为 计算 总 次 数 。N 为 惯性 环节 个 数 。 在 
1000 一 2000 句 之 间 设 置 数据 区 ,其 结构 为 

1000 DATA L1,L2,L3 

1010 DATA NTo,Ti，…… ， 工 N 

其 余数 据 都 由 键盘 输入 , 它 包 括 : 

调节 器 的 P.PI.PD、PID 四 种 自选 方式 ; 

调节 器 参数 KpP、Tr、Tp 的 输入 ; 

系统 的 开 环 阶 路 输入 ,闭环 阶 跃 输入 及 闭环 斜坡 
输入 三 种 自选 方式 ; 

计算 结果 是 否 打印 的 选择 。 

回答 提问 后 ,机 器 自动 进行 运算 ,并 根据 计算 结果 
的 最 大 范围 自动 选择 x,y 轴 的 “窗口 ,以 及 合适 的 刻 
度 单位 然后 ,利用 高 分 辩 率 作 图 将 过 滤 过 程 曲 线 显示 
(或 打印 ) 出 来 。 

3. 实验 题 

合适 的 实验 题 应 保证 程序 每 一 部 分 都 参与 运行 并 
且 结 果 为 已 知 。 事实 上 ,PID 调节 器 的 功用 就 是 尽 可 能 
使 系统 接近 一 个 二 阶 系统 ,而 二 阶 系统 的 阶 姥 响应 我 
们 是 知道 的 ,可 以 利用 这 一 特点 来 建立 实验 题 。 笔 者 扒 
荐 的 对 象 传递 函数 为 








es 1 人 
WCG) 一 STTCGSTTDCES 二 DT (人 
已 知 PID 调节 器 的 传递 函数 为 
WCGS)=Ke[1 十 二 ToS] 
一 Ke .CS 十 1) CrS 十 1D) 
下 S (10) 
式 中 :Ti 王立 十 


To 一 Titrz/(r 十 T) 
只 要 选择 Ti 一 2,To 一 0. 5 就 可 以 得 到 一 1,m=- 
1。 此 时 系统 总 开 环 传 递 函数 为 


Ke em 
WA 2 SCTS 十 1) 


纯 滞 后 时 间 可 选择 To=0 与 To=0.5, 当 To=0 
时 , 式 (11) 恰 恰 是 一 个 二 阶 系统 开 环 传递 函数 ,其 中 
1 


我 们 选择 m=1 时 0.2 与 5=0.7 二 种 情况 来 
验证 。 当 二 0.2 时 有 Ke 一 5,T 一 2.5。 当 #=0.7 时 有 
25 





Ke 一 1. 428, 工 一 0.714。 


化 工控 制 系统 一 旦 投入 运行 , 即 不 能 随便 调整 , 现 


场 人 员 的 训练 是 很 困难 的 .利用 这 个 程序 ,可 以 进行 人 
员 训 练 ,特别 对 于 研究 和 掌握 大 纯洁 后 系统 的 整定 方 
法 ,提高 现场 调整 的 工作 质量 ,是 一 个 良好 的 工具 。 
附录 :仿真 系统 源 程序 
1 REM CUNTROL ST 
20 READ L1。 


四 1L. 
"“N= ”ssN: DIfM 





STEMS TINITATE 
PRINT “H= "3 Li 。 
5 READ N PRINT 
TtN):16 = # 革 















TO NI READ TI) PRINT 
“sfTOI)。 NEXT TI PRINT 





SO FOR = 





4 INPUT "PIT PIT(2) PCS PID(4 
) SN 人 GOD 93Db。7DS5D 
和 已 

号 OO TNPUTE TPR) TS GEQ 妆 必 

ITNPUHT ”5D) 

ZNRPU TICTD) 

中间 NE (FE 

3 DIM HT 
EECND) 

世间 NMR RENSL) 
EDSE=SLQOPE4 
人 

3 人 

8 TNFPUT PRINT RESULT Y7 有 上 事 














十 失 


“to IFN>O THEN FOR LI = 1 TU 
本 区 《 玉 计 芝 下 其 全 下 全 长 本 人 
和 和 站 工 下 ( 开 
和 EX 


工 
UN St GOUTU 各 总。 土 宇 吕 





于 


CC) 人 号 








JJ T9= TS+ Ki 7 it GOTQ 16O 
145 19 二 T5 基 上 7 LE 
15SCO T7 ”= 11 基 HEL ATf942188 = T7 


160O 1F 于 = “Y" THEN PRINTI ”TITM 
民生 LT 

人 7ZoO FOR Il ”> 1 tbL 
1S0 DOR Ts { 昌 二 
器 

TU ， 
《NE GEOT 2 
人 

则 4 UN SS GD1TU ee 。 








UN SGUEG 













GDTO OU 





: 17 区 区 和 十 日 关 U5 
X1 人 
全 X 
265 EECA2 + 1) stsRIO) = El(1): 
FOR TI 1 1TQ AR 二 EL 
1) EECIS) NEXT 了 1 





2 IF NI OO THEMN 和 DR 1 二 主 工 G 
NROI) = ET 共 愉 (TI + FILL) 其 
本 
NI 一 75 权 (1 1) = 民 ( 4 
7 攻关 下 - 革 

BO NEXT TI2T ss T+ T6sHitILt) 






1 IF S 3 THEN H24LItI = 工 ! 
GU1O DO 避 
人 


3S(It) = RIN): IF KK 让 :> Y” THEN 

FRILENI INT 《1o0o0 关 HIL) 十 
5) toDoo。INI (CH2CI1) 共 二 
Oo + 57 7 LOOoD。 INIT “MSIE 
站 DODOD 十 5) 7 二 CCD 
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302 IF H2CIt) > X THEN X :> H2uvtl 


》 
3D04 IF HSCI1) 2 X THEN X = HS 1 
) 





SO NEXT I1:NW2 = 10Ot # 13W4 > 1 
OSI 
23oo00: END 

892539 REM PFALNTI 

OO UL 和 四 

共 网 < = 其 W43f11L 二 避 








3D10 2 DTPF UT 2 1 THEN OOi 写 

De2D IF UL 2 RD THEN LL = LU 
10322 = + 1 GUQTU 8SD 汪 避 

2303SC UL := INT UL) 区 1 《3 GelbO 

果品 

35360640 Z = 2 + 13Ut tt 尖 了 oO FL 
1 二 1 THEN 9394 
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趣味 程序 ， 
入 写 所 内 醋 碾 
黑龙 江 呼 兰 师 专 。 吴 全 有 


本 文 介绍 在 苹果 机 上 利用 机 器 语言 发 音 子 程序 编 
写 乐曲 的 一 个 实用 程序 ,利用 该 程序 可 以 编写 出 各 种 
活 滩 欢 快 的 乐曲 。 这 个 程序 的 特点 是 利用 音阶 值 的 字 
符 代 换 法 和 音符 值 的 数字 代 换 法 ,使 之 符合 人 们 的 党 
规 习 惯 ,使 用 者 不 必 记 住 各 个 音阶 和 音符 的 具体 数值 ， 
因此 输入 速度 快 . 效 率 高 ,编程 简单 ,使 用 方便 。 

一 “乐曲 的 输 人 方法 

程序 一 用 来 编写 乐曲 。 当 程序 运行 后 ,显示 出 高 音 
阶 (HYI) .中 音阶 (MYJI) 和 低音 阶 (LYJ) 的 键盘 输入 代 
表 字 符 。 如 输入 H2 代表 高 音 2,M7 代表 中 音 7,L5 代 
表 低音 5。 如 有 休止 符 (KUZ) 时 , 则 键入 0。 当 低音 低 于 
5 时 ,可 将 所 有 音阶 提高 八 度 处 理 ,反之 亦 然 。 发 音 时 
间 , 即 音符 C(YF) 分 五 种 ,从 1.5 到 0. 25, 键 入 1.5 代表 
一 拍 半 ,0. 25 代表 1/4 拍 , 以 此 类 推 . 对 于 两 拍 的 音阶 
可 用 两 个 一 拍 的 相同 音阶 连续 发 音 来 处 理 。 接 着 按 任 
意 键 , 便 开 始 输入 数据 。 屏 幕 上 显示 出 序号 ,在 YI 后 
输入 音阶 代表 字符 ,在 YF 后 输入 音符 代表 的 数字 , 然 
后 发 出 该 音 。410 语句 提供 了 改 错 机 会 ,如 发 音 不 正确 
需要 修改 时 , 按 Y 键 ,重新 输入 ,否则 按 其 它 键 , 即 可 





输入 下 一 个 音阶 和 音符 ,输入 结束 时 , 按 王 键 , 这 时 机 
器 便 将 输入 的 乐曲 从 头 至 尾 演 奏 一 遍 。 此 后 屏幕 上 显 
示 菜 单 。 键 入 1 则 将 数据 打印 出 来 ;键入 2( 程 序 一 应 
在 DOS 状态 下 运行 ,并 将 磁盘 放 入 驱动 器 后 键入 ) 则 
将 数据 存 入 磁盘 ,以 备 调用 ,返回 菜单 后 ,键入 0, 则 停 
止 运 行 。 
二 .乐曲 的 演奏 

当 将 乐曲 存盘 后 ,可 运行 程序 二 ,将 其 调 入 内 存 
后 ,发 出 悦耳 的 乐曲 声 。 这 样 编写 的 发 音程 序 ,省 掉 了 
一 般 编 程 输入 DATA 语句 的 大 量 工作 ,还 保证 了 不 出 
差错 ,使 程序 短小 ,非常 简便 易 行 。 ， 

顺便 指出 ,乐曲 存盘 时 ,文件 名 为 “MUSIC”, 如 要 
在 同一 磁盘 存 入 两 个 以 上 的 乐曲 时 ,应 将 程序 一 和 程 
序 二 中 的 文件 改名 ,否则 将 冲 掉 前 一 个 乐曲 .也 可 将 磁 
盘 中 T 型 文件 MUSIC 改名 , 对 磁盘 中 的 多 个 乐曲 , 需 
要 演奏 某 一 个 时 ,只 要 将 程序 二 中 “MUSIC” 改 为 相应 
的 文件 名 即 可 。 
程序 一 
10 HOME:HTAB 13:PRINT“#* x 尖 MUSIC x 关头 罗 
20 VTAB 4:HTAB 7:PRINT“HYJ:H1 H2 H3 H4 H5 H6 H7?” 
30 VTAB 6:HTAB 7:PRINT“MYJ:M1 M2 M3 M4 M5 M6 

M7” 
40 VTAB 8:HTAB 7:PRINT“LYJ: 
45 VTAB 10 HTAB 7:PRINT“XUZ: 0” 


L5 L6 L7?” 
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50 VTAB 13:HTAB 7:PRINT“YF:1.5 1 .75 .5 .25” 535 PRINT J,Y(J)，,F(J) :NEXT 


60 GETN$ 540 PR# 0:GOTO 480 
100 DIMY(500),F(500) 550 D$=CHR 和 $ (4):D0$=D$ 十 “OPEN”:DW$ 一 D$ 
110 FOR I=-0 TO 20 十 “WRITE”:DC$ 一 D$ 十 “CLOSE?” 
120 READ N;:POKE 770 十 IN:NEXT 555 “PRINT DO $ “MUSIC,L10”:PRINT DC$ “MUSIC”， 
130 DATA 173,48,192,136,208,5,206,1,3,240 PRINT DO 和 $ ; “MUSIC,L10” 
140 DATA 9,202,208,245,174,0,3,76,2,3,96 560 FOR J 王 1TOI 
150 VTAB 16:I 一 1 565 “PRINT DW $ ;MUSIC,R?;J 
200 PRINT LI“YJ (E 王 END):”;: INPUT Y$ 570 PRINT Y(J) :PRINT F(J) :PRINT D$ :NEXT 
210 IFY 和 $ =“E”THEN PRINT : GOTO 450 575 PRINT DW $ ;“MUSIC,RO”:PRINT I:;PRINT D$ 
220 HTAB 4: INPUT“YF:”;F(CD) 580 PRINT DC$ ;“MUSIC”:GOTO 480 
230 IFY$ =“0”THEN Y(D 王 1:GOTO 300 600 IFN=1THEN Y(GD) 一 96 
240 S 有 =LEFT$ (Y$ ,1):N 和 一 RIGHT$ (Y$ ,1):N 一 610 IF N=2 THEN Y(GD 一 86 
VAL (CN$) 620 IF N= 王 3 THEN YGD) 王 76 
250 IF (S$ =“H”AND LEN (Y$ ) 王 2) AND (CN 二 0 AND 630 IF N=4THEN Y(D 一 72 
N <8) THEN 600 640 IF N=5 THEN Y(CGD 王 64 
260 IF (S$ =“M”AND LEN (Y$ ) 王 2) AND (CN>> 0 AND 650 IF N=6 THEN Y(D 王 57 
N 一 8) THEN 700 660 IF N 王 7 THEN Y(D) 一 51 
270 IF (S$ =“L”AND LEN (Y$ ) 王 2) AND (N> 4 AND 670 GOTO 300 
N<8) THEN GOTO 800 700 IFN=1THEN Y(CD 一 192 
280 CALL - 198:GOTO 200 710 JIFN 王 2 THEN Y(GD 王 172 
300 IF FGD) 王 1.5 THEN F(GD 一 255:GOTO 400 720 瑟 N=3THEN YGD 一 152 
310 IFF(GD=1THEN F(GD 一 160:GOTO 400 730 IF N=4THEN Y(CD 王 144 
320 IF F(GD=.75 THEN FGD) 王 110:GOTO 400 740 IF N 王 5 THEN Y(D 一 128 
330 IF F(D=.5THEN F(GD 王 70:GOTO 400 750 IF N 王 6 THEN Y(CD 王 114 
340 IF F(GD =.25 THEN F(GD 一 30:GOTO 400 760 IF N=7 THEN Y(D 一 102 
350 CALL - 198:GOTO 230 770 GOTO 300 
400 POKE 768,Y(D :POKE 769,F(D :CALL 770 800 IF N 王 5THEN Y(D 王 255 
410 HTAB 7:PRINT“CANGE(Y/N)?”:GET N$ 810 IF N 王 6 THEN YCGD 王 228 
420 IFN 和 一 “Y”THEN 200 820 IF N=7 THEN Y(GD 一 204 
425 I 一 I 十 1 830 GOTO 300 
430 IF I>> 500 THEN I 王 500:CALL -198:END 程序 二 
440 GOTO 200 5 HOME:VTAB 4:HTAB 17:PRINT“MUSIC?” 
450 HOME:I 王 IL1:HTAB 15:PRINT“PLAYING…?” 10 DJ$ 王 CHR$ (4) :PRINT D$ 十 “OPEN MUSIC,L10” 
460 FOR J 一 1TOI 20 PRINT D$ 十 “READ MUSIC ,RO”:INPUTI 
465 POKE 768,Y(J) :POKE 769,F(J) 30 DIM Y(D ,F(GD 
470 CALL 770:NEXT 40 FOR J 王 1TOI 
480 HOME :, VTAB 4:HTAB 10:PRINT“1. PRINT? 50 PRINT D 和 $ 十 “READ MUSIC,R2?;J 
485 _ VTAB 6:HTAB 10:PRINT“2.SAVE?” 60 INPUT Y(J) :INPUT F(J) :NEXT 
490 VTAB 8:HTAB 10:PRINT“0.END?” 70 PRINT D$ 十 “CLOSE” 
495 VTAB 12:HTAB 10:PRINT“INPUT (0 OR 1 OR 2):?” 80 FOR J 一 0 TO 20 
500 GETN$:N 王 VAL CN$) 90 READ M:POKE 770 十 J,M:NEXT 
505 IFEN<00ORN> 2THEN CALL 一 198:GOTO 480 100 FOR J=-1TOI 
510 IF N 王 0 THEN END 110 POKE 768,Y(J) :POKE 769,F(J) 
515 ON N GOTO 520,550 120 CALL 770:NEXT 
520 PRINT:HTAB 10:PRINT“ON PRINTER1!”:PR# 1 130 DATA 173,48,192,136,208,5,206,1,3,240 
525 PRINT“NO”,“YJ”，YF?” 140 DATA 9,202,208,245,174,0,3,76,2,3,96 
530 FOR J 一 1 TOI 150 END 
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“ 趣味 程序 ， 
用 中 华 学 习 机 作 竞 赛 抢 答 器 
陕西 省 人 民警 察 学 校 电教 室 “ 李 建 林 


十 "十 "十 "十 -十 "十 -十 "十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 -十 

用 微机 作 竞 赛 抢答 器 已 有 不 少 介绍 ,但 有 的 在 硬 
件 处 理 上 比较 复杂 ,不 易 作 到 。 有 的 则 仅 介 绍 了 原理 ， 
没有 具体 制作 说 明 。 根据 GET 语句 只 接收 一 个 数字 赋 
给 变量 的 特点 ,编制 了 一 个 程序 ,数字 1,2,3,4 代表 四 
个 参赛 小 组 。 用 四 个 微 动 开 关 , 分 别 固定 在 四 个 小 盒子 
上 ,用 导线 分 别 并 联 到 四 个 数字 健 上 ,作为 抢答 器 开 
关 , 用 彩电 作为 显示 器 。 当 按 动 抢答 器 开关 时 , 即 相当 
于 按 动 数字 键 , 计 算 机 就 接收 到 被 最 先 按 动 的 数字 。 屏 
幕 在 低 分 辨 率 状态 下 ,显示 出 一 个 很 大 的 红色 数字 ， 同 
时 用 MUSIC 语句 发 出 声音 。 

主 程序 是 用 BASIC 语句 编写 的 , 低 分 辩 率 显示 数 
字 的 子 程序 是 用 机 器 语言 编写 的 ,其 目的 是 为 了 提高 
,显示 速度 。 把 主 程序 和 机 器 码 送 入 内 存 后 , 即 可 键入 
RUN 命令 ,这 时 屏幕 上 显示 出 “OK” 两 个 绿色 大 字 , 表 
示人 参赛 小 组 可 以 按 抢答 器 开关 了 .。 当 一 个 问题 答 完 , 宣 
读 了 下 一 道 题 后 ,主持 人 先 按 空格 键 ,屏幕 上 的 红色 数 
字 消 失 , 又 出 现 “OK? 两 个 绿色 大 字 , 表 示 可 以 继续 抢 
答 。 如 果 主 持 人 没有 按 空格 键 , 屏 幕 上 也 未 出 现 “OK2” 
字样 ,而 抢先 按 抢答 器 开关 ,这 时 ,计算 机 并 不 接收 数 
字 , 抢 答 无 效 。 这 样 , 反 而 避免 了 犯规 情况 的 出 现 。 该 
程序 仅 适 用 于 四 个 参赛 小 组 ,如 果 多 于 四 个 小 组 ,要 把 
程序 作 适 当 修改 ,并 要 增加 抢答 器 开关 。 如 果 比 赛场 地 
大 ,观众 多 ,可 把 通 入 小 喇叭 的 声音 信和 号 接 到 扩 音 机 上 
放大 , 则 效果 将 更 好 。 
程序 如 下 : 

5 GOTO 15 
10 GETX 和 $:IFX 和 $ (CHR 和 $ (32) THEN 10 
15 CALL 32768 
20 GETX:IFX，40ORX( 王 0THEN 20 
30 GR:COLOR 一 11 
40 ON X GOSUB 60,70,80,90 
60 CALL 32901:GOSUB 200:GOTO 10 
70 CALL 32917:GOSUB 200:GOTO 10 
80 CALL 32981:GOSUB 200:GOTO 10 
90 CALL 33000:GOSUB 200:GOTO 10 
200 FOR I=1 TO 2:READ X,Y:MUSIC X,Y:NEXT， 
DATA 62,160,95,160:RESTORE:RETURN 
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许多 人 都 喜欢 打 麻 将 , 打 麻 将 时 首先 要 掷 仍 子 , 以 

便 决 定 在 哪里 开 牌 。 众 所 周知 , 掷 骨 子 是 一 种 随机 现 
象 , 就 是 说 ,事先 并 不 知道 那个 面 朝 上 ;但 又 必然 是 六 
个 面 中 的 一 个 朝 上 。 在 大 量 的 投掷 试验 中 ,究竟 哪个 面 
朝 上 的 机 会 多 ? 还 是 机 会 均等 呢 ? 能 否 用 计算 机 来 摸 
拟 掷 山子 现象 ? 该 文 给 出 了 一 组 程序 ,尽管 十 分 简单 ， 
但 却 十 分 有 趣 , 它 能 解答 我 们 上 面 提出 的 问题 。 

程序 1 是 在 APPLE 工 机 上 实现 的 ;程序 2 是 在 
IBM PC 及 其 兼容 机 上 实现 的 。 现 对 两 组 程序 作 简 要 说 
明 如 下 。 

在 程序 1 中 ,10 为 数组 说 明 语句 ,将 一 点 朝 上 出 
现 的 次 数 , 放 在 下 标 变量 A(C1) 中 ,两 点 出 现 的 次 数 放 
在 A(2) 中 ， 人 , 依 此 类 推 。 20 一 40 语句 ,是 将 数组 A 
的 各 下 标 变量 先 置 零 ; 50 一 60 语句 ,是 通过 键盘 输入 
掷 从 子 的 次 数 N;70 一 100 语句 ,是 循环 语句 ,其 中 80 
语句 是 籍 助 于 随机 函数 及 取 整 函数 形成 1 一 6( 包 括 1 
和 6) 之 间 的 随机 整数 ;90 语句 将 1~6 之 间 的 随机 整 
数 K, 累 加 到 相应 的 下 标 变量 ACK) 中 去 ;110 一 130 语 
名 ,是 打印 下 标 变 量 A(C1)~A(6) 的 值 。 

程序 2 与 程序 '1 的 主要 不 同 点 是 ,增加 了 一 个 外 
循环 ,之 所 以 设置 外 循环 ,主要 是 为 了 加 入 50 语句 ,这 
个 语句 的 作用 是 给 随机 函数 KND(X) 置 初 核 ,M 是 个 
变量 ,因为 若 没 有 50 语句 ;或 者 虽 有 50 语句 ,但 其 中 
M 若 为 常量 , 则 每 次 运行 程序 时 ,都 会 产生 同一 个 随 
机 数 序列 。 如 果 只 写 :50 RANDOMIZE, 则 每 次 运行 
时 ,要 求 操作 者 从 键盘 输入 一 个 一 32768 一 32767 之 间 
的 整数 ( 若 回答 同一 个 数 ,就 产生 同一 组 随机 数 ) ,这 样 
做 ,显然 很 麻烦 ,在 本 程序 中 ,设置 了 一 个 外 循环 ,使 
50 语句 中 的 M 随 之 变化 ,这 种 处 理 方法 ,是 比较 简洁 
又 行 之 有 效 的 。 此 外 ,外 循环 还 用 来 控制 程序 执行 的 次 
数 ;而 N 仍 表示 每 次 搓 山 子 的 次 数 。 当 不 想 继续 运行 
时 ,可 键入 N= 一 1, 此 时 ,程序 就 转 210 语句 ,结束 运 
行 。 从 打印 结果 中 不 难看 出 : 当 N=10000 时 ,A(CL)VN 
AxA(2)/Nsz……<A(6)/N<1/6 盖 0.16, 这 就 是 说 ， 
当 投 掷 仍 子 的 次 数 很 多 时 ,每 个 面 朝 上 的 概率 ,近似 等 
于 1/6。 顺便 说 一 下 , 当 N=10000 时 ,APPLEI 机 需 运 
行 3 分 多 钟 ; 而 IBM PC 机 仅 需 45 秒 左 右 。 
程序 1 
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wwe 人 






10 DIM A(C6) 

20 FOR I 一 1 TO 6 

30 LET ACID 一 0 

40 NEXT1I 

50 PRINT “N 一 ”; 

60 _ INPUT N 

70 FOR J 一 1 TO N 

80 LET K 一 INT (6* RND (1) 十 1) 

90 LET A(CK) 一 A(K) 十 1 

100 NEXTIJ 

110 FOR I 一 1TO 6 

120 PRINT “A(C”3 IT“) 一 ”7A(I) ， 

130 NEXT1I 

140 END 

程序 2 

10 DIM A(6) 

20 INPUT “L 一 ”;L 

30  LPRINT “一 ”;L 

40 FOR M 一 1 TOL 

50 RANDOMIZE M 

60 FOR I 王 1 TO6 

70 LET AGD) 一 0 

90 NEXT1I 

100 INPUT“N 一 ”;N 

110 IF N 一 一 1 THEN 210 

120  LPRINT“N 一 ”;N 

130 FOR J 一 1 TO N 

140 LET K 一 INT(6 x* RND(J) 十 1) 

145 LET ACK) 一 ACK) 十 1 

150 NEXT IJ 

160 FOR I 一 1 To 6 

170  LPRINT TAB(14* (I 一 1))3“A(C25I3“) 
一 ”3A(I)， 

180 NEXT1I 

185 “ LPRINT 

190 NEXT M 

200 ”PRINT 

210 END 


“ 趣味 程序 


有 《 多 


作风 有 
本 程序 是 战争 型 游戏 程序 .运行 时 ,屏幕 下 方 有 一 
炮台 ,用 “< ”“ 一 ”和 回 车 键 分 别 控制 它 的 左右 移动 

或 停止 ,其 它 键 对 它 没有 影响 。 按 空格 键 发 射 并 伴 有 枪 

声 。 下 方 显示 分 数 , 即 游戏 者 现存 的 弹药 数量 ( 原 有 5 

分 )。 另 有 一 飞碟 忽 左 忽 右 地 向 你 驶 来 。 若 与 炮台 相 挤 

则 偷 走 30 发 炮弹 。 击 中 飞碟 可 奖励 3 分 ; 放 走 1 架 飞 

碟 倒 扣 一 分 ,然后 出 现 另 一 架 飞 碟 。 弹 尽 时 游戏 结束 。 

计算 机 会 打印 :游戏 结束 ,再 玩 吗 ?游戏 者 用 Y/N 选 

择 。 

本 程序 有 一 特色 : 当 飞碟 或 炮台 走 到 屏幕 侧 边界 

时 ,可 从 另 一 侧 走出 来 继续 前 进 。 

10 FOR T 王 24576 TO 24582 STEP 2: READ R,S,V:， 
POKE T,R:POKE T 十 1,0:POKE S,V:NEXT:FOR. 
N 王 0 TO 20: READ W:POKE 24604 一 N,，12: 
POKE 24624 一 N,21:POKE 768 十 N,W:NEXT :C 
$ = CHR 和 $(7):ROT 王 0:HCOLOR 一 3:HOME : 
POKE 34,21 

20 工 =0:H=5:M 王 120:HGR:HPLOT 0, 159 TO 
279,159:POKE 49168,0 

30 HOME:PRINT TAB(20);H;“”:X 一 INTCORND(1) 
x* 280) :FOR J 王 0 TO 158 STEP 3: SCALE 一 15: 
DRAW 1 AT X,J:Q 王 PEEK(49152):H 王 H 一 30 
x* (X(M 十 J 一 118 AND X7M 一 J 十 143 AND J) 
138) :IF H(1 THEN PRINT“Game over,play again? 
(C(Y/N)”C 和 CC 和 :POKE 49168,0:GET D 
$:ON (D$()》N2”) 十 1 GOTO 60,20 

40 IFQ=160 THEN K 王 M 一 279* (M)259):SCALE 
一 138:ROT 王 16:DRAW 1 AT K 十 20,0:CALL 
768:XDRAW 1 AT K 十 20,0:H 王 H 一 1:HOME， 
PRINT TAB(20)*H;“”:POKE 49168 ,0:ROT 一 0: 
IF X〈K 十 20 AND X)K 十 5 OR X(M 十 20 AND X) 
M 十 5 THEN SCALE 王 15:XDRAW 1 AT X,J:H 一 
H 十 3:PRINT C$ :GOTO 30 

50 工 =L 十 (Q=136 OR Q=141 OR Q 王 149) * (Q 一 
L):SCALE 王 1:XDRAW 2 AT M,158:M 王 M 十 3 
x*〈(L 一 149) 一 (L 王 136)):M 王 M 一 INT (CMV/279) 
x* 279:DRAW 2 AT M,158:SCALE 王 15:XDRAVW 
1 ATX,，J:X 一 X 十 5 * (SGNCRND(2) 一 .5)):X 
一 X 一 INT(CX/279) * 279:P 一 PEEK (49200) 十 
PEEK(49200) :NEXT :H 王 H 一 1:GOTO 30 

60 DATA 2,232,0,6,233,96,8,24625,0,5,789,96， 


160,2,0,138,24,233,1,208,252,141,，48,，192， 
232,224,177,208,242,136,208,237,1990,7，,4 





.广告 


天 坛 学 习 机 邮购 及 征求 代理 启事 

北京 计算 机 五 厂 研 制 生 产 的 天 坛 学 习 机 
CTECB:+ )， 以 具有 一 机 多 用 、 功 能 齐全 、 扩 充 方 便 、 软 
件 丰富 、 外 形 美观 .性 能 价格 比 高 及 与 APPLE 一 工 及 

华 学 习 机 高 度 兼 容 的 特点 而 在 首都 市 场 走 俏 。 

天 坛 学 习 机 不 仅 具 备 中 华 学 习 机 的 全 部 功能 ,还 
具有 以 下 特点 :内 存 64KB,ROM 容量 136KB; 汉 字 系 
统 不 仅 能 用 拼音 、 区 位 ,还 可 用 五 笔 字 型 方式 输入 ;并 
具有 日 、 俄 .希腊 文字 功能 ; 它 还 具有 语音 合成 功能 。 天 

坛 机 的 显示 接口 有 一 个 射频 信号 输出 显示 接口 ,一 个 
全 电视 信号 输出 显示 接口 ,有 三 种 制式 显示 方式 ,可 使 
用 PAL\NTSC、SE CAM 三 种 调制 方式 ,可 连结 黑白 / 彩 
色 显 示 器 或 黑白 /彩色 电视 显示 装置 .天坛 机 软盘 驱动 
器 接口 可 直接 带动 两 个 5. 25 英寸 软 瘟 驱动 器; 它 可 以 
使 用 天 坛 学 习 机 系列 软件 ;APPLE 一 工 、 中 华 学 习 机 的 
各 种 语言 软件 及 软件 包 也 均 可 使 用 ;此 机 的 扩充 接口 
为 50 芯 , 扩 充 构 与 APPLE 一 工 及 中 华 学 习 机 完全 兼 
容 。 

天 坛 学习 机 是 面向 学 校 和 家 庭 的 理想 计算 机 。 北 
京 的 众多 计算 机 教师 反映 :天 坛 学 习 机 的 功能 ,质量 及 
价格 比 均 伏 于 中 华 学 习 机 。 

为 了 便利 外 地 用 户 购 买 我 厂 决定 ; 

1. 对 外 地 用 户 可 以 实行 邮购 。 

2. 征求 外 地 天 坛 机 代理 商 , 欢 迎 有 意 者 前 来 (或 来 
信 ) 联 系 。 

3. 产品 均 实 行 三 包 , 免 费 保 修一 年 ,终生 维护 。 

4. 天 坛 学 习 机 的 售后 技术 咨询 由 《中 华 学 习 机 》 杂 

志 驻 北京 通讯 记者 站 负责 ,请 用 户 放心 。 该 站 受 
我 厂 委托 还 可 免费 陪同 北京 及 外 地 来 京 用 户 挑 
选 天 坛 学 习 机 ， 并 免费 提供 技术 及 使 用 培训 。 

联系 人 :北京 159 中 学 解 威 

邮 码 :100034 

电话 :602. 2824 

产品 价格 如 下 ( 均 包 括 邮 费 \ 有 正式 发 票 ) : 

天 坛 学 习 机 每 台 1040 元 

5. 25" 驱动 机 每 台 560 元 (国产 ); 

660 元 (日 本 SUper); 
600 元 (日 本 智能 ) 

购买 套 机 (学 习 机 十 驱动 器 ) 随 机 赠 软 件 6 个 

通信 汇款 地 址 :北京 市 计算 机 五 厂 销售 科 

起 健 宝 ” 收 , 邮 政 编码 100061, 电 话 750114 


31 


“ 趣味 程序 


打印 禽 农 历 的 中 文 日 历 


诸暨 中 学 ” 杜 国 安 





打印 日 历 的 程序 很 多 ,但 大 都 只 能 打印 公历 ,本 程序 能 打印 含 农 历 的 中 文 日 历 。 
一 .日 历 的 基本 知识 

公历 是 以 太阳 的 同年 视 运动 为 天 文 依据 ,以 回归 年 为 基本 周期 的 历法 ,因而 又 称 阳历 。 

公历 每 四 年 一 状 , 每 四 百年 去 掉 三 个 闽 日 那些 不 能 被 400 整除 的 世纪 年 ,如 1700,1800,1900 等 仍 算 作 平 年 。 

农历 ,是 同时 考虑 太阳 和 月 亮 运动 ,把 回归 年 和 朔望月 并 列 为 制 历 的 基本 周期 。 我 国民 间 也 称 为 阴历 。 

农历 每 十 九 年 设 十 二 个 平年 ,每 一 平年 为 十 二 个 朔望月 , 设 七 个 半年 ,每 一 头 年 设 十 三 个 朔望月 ,并 把 不 含 中 
气 的 月 份 称 为 闽 月 , 闽 月 无 名 , 取 用 前 月 名 。 至 于 隔 几 年 一 间 , 头 几 月 , 头 月 的 大 或 小 ,以 及 每 年 各 月 份 大 或 小 等 要 
经 过 天 文 台 繁杂 的 计算 才能 确定 ,从 使 用 的 角度 来 看 ,它们 是 不 固定 的 ,也 没有 明确 的 规律 ,这 就 给 推算 农历 带 来 
困难 。 

二 \ 农 历 信息 的 处 理 

鉴于 农历 的 无 规律 性 ,每 打印 农历 ,就 必须 首先 输入 农历 各 年 的 有 关 信息 ,如 各 月 的 大 或 小 , 头 与 否 , 头 几 月 ， 
元 且 对 应 的 农历 日 期 ,以 及 二 十 四 个 节气 的 公历 日 期 。 当 然 我 们 希望 输入 的 数据 越 少 越 好 ,变换 越 简单 越 好 。 本 
文 介绍 的 方法 是 把 上 述 必要 信息 以 一 个 十 九 位 长 的 字符 串 输入 ,利用 字符 串 函 数 分 解 求 出 各 有 关 信 息 ,然后 进行 
转换 计算 。 

第 一 :半月 占 一 位 , 闽 几 月 就 用 几 表 示 ,不 同时 置 为 0, 因 没有 头 十 一 .十 二 、 一 月 ,所 以 装 十 月 用 1 表示 。 

第 二 ， 0 1 表示 ,小 月 用 0 表示 ,农历 第 一 个 月 (不 是 一 月 ), 不 足 一 
月 也 照 记 ,最 后 一 月 如 路 公历 年 , 则 不 记 。 共 占 十 三 位 ,不 足 十 三 位 的 最 后 有 0 补足 。 这 样 十 三 个 数码 按 顺 序 排列 ， 
就 成 为 一 个 十 三 位 的 二 进 制 数 。 

第 三 :元 旦 对 应 农历 的 月 浊 占 三 位 ,元 旦 对 应 的 农历 月 份 一 般 是 十 一 .十 二 月 ,十 一 月 用 0 表示 ,十 二 月 用 1 
表示 ;日 期 用 二 位 数码 表示 , 例 : 初 5 用 05 表示 ,十 三 用 13 表示 。 并 将 表示 月 份 的 数码 排 在 前 面 十 三 位 的 二 进 制 
数 之 后 ,组 成 一 个 十 四 位 的 二 进 制 数 ,再 把 这 十 四 位 的 二 进 制 数 转换 成 四 位 的 十 六 进 制 数 。 

第 四 :二 十 四 个 节气 的 日 期 用 公历 日 期 表示 , 因 1 一 6 月 份 的 节气 日 在 6 日 和 21 日 左右 ,7 一 12 月 份 的 节气 
日 在 8 日 和 23 日 左右 ,我 们 先 定 出 各 节气 的 初 值 如 下 表 

小 寒 ” 立春 人 惊 热 清明 立夏 芒种 小 暑 立秋 白露 寒露 立冬 ”大雪 
4 日 4 日 4 日 4 日 4 日 4 日 6 日 6 日 6 日 6 日 6 日 6 日 





大 寒 ， 雨水 春分 谷雨 小 满 ”夏至 大 暑 处 里 秋分 霸 降 小 雪 冬至 

19 日 18 日 19 日 19 日 19 日 19 日 21 日 21 日 21 日 21 日 21 日 21 日 

每 年 的 实际 节气 日 与 对 应 初 值 之 差 在 C0 一 33] 上 ,所 以 我 们 用 这 个 差 表 示 节 气 , 这 样 24 个 节气 日 按 顺 序 排 列 
组 成 一 个 二 十 四 位 的 四 进 制 数 ,并 转换 成 十 二 位 的 十 六 进 制 数 。 

的 轩 路 以 1990 年 为 例 变换 如 下 : 





































中 上 于 全 看 二 种 硼 | 三 小 大 机 | 相 放 | 旨 芒 夏 | 小 大 | 立 处 生 交 | 才 尖 | 人 | 志和 

百 志 月 表 骨 鼻 再 对 | 髓 月 形 | 下 其 | 宗 变 | 春 水 | 答 分 | 明 十 | 夏 往 | 种 至 | 鲁 答 | 秋 时 | 露 分 | 露 降 | 冬 雪 | 估 至 
原 辣 P 下 让 29 29 30|29 29 30 29|30300|12.5|1520|1419|1621|1520|1621|621|1723|823|1823|1824|822|722 
中 | 1 5 1 1 0 1 人 1 2 T2 区 治 23 2 1 条 江 
答 和 | 5 | 2 9 2 D 05| 5 1 人 A 6 人 人 A B 9 9 


经 转换 后 原 66 位 长 的 数码 变 成 19 位 的 字符 串 :“5292D0551A5AA6AAB99? 
三 、 程 序 说 明 
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本 程序 已 输入 1901 年 到 2000 年 的 全 部 农历 信息 ,读者 根据 上 述 编程 思想 可 添加 更 多 的 年 份 信息 。 
程序 520 一 530 判断 当年 公历 是 否 为 闽 年 ; 

540 一 555 将 农历 有 关 信 息 转 换 成 实际 数据 ; 

565 一 670 计算 公历 农历 对 应 日 期 及 星期 ,并 转换 成 字符 串 存 放 。 

680 一 730 打印 日 历 
本 程序 以 绍兴 市 计算 机 学 会 编 的 SCS3. 0 汉字 系统 为 支持 软件 。 


0 REM RE 一 LI 
5 D$= CHR 和 (4) 


10 
15 
20 


25 
30 


35 
40 
45 


50 


55 


60 


65 


70 


75 


80 


85 


90 


95 


DIM B1(12),B2(14),A$(2,3,42),W$(12),C(24),E(12,2) " 卫 $(12,2),D$(10),F(G4,2),W1 和 (2) 
DATA 31,28,31,30,31,30,31,31,30,31,30,31,1,1,5,5,8,15,9,9 

DATA 小 塞 ,大寒 ,立春 ,雨水 , 惊 热 , 春 分 ,清明 ,谷雨 ,立夏 ,小 满 ,芒种 ,夏至 ,小 里, 大暑 ,立秋 ,处 暑 ， 白露 ， 
秋分 ,寒露 ,和 霜降, 立冬, 小雪, 大雪 ,冬至 

DATA 春节 端午, 中秋, 重阳 , 头 , 初 ,月 ,年 份 ,日 ,一 ,二 ,三 ,四 ,五 ,六 ,七 , 八 , 九 , 十 ,十 一 ,十 二 ,十 
FOR I 王 1 TO 12:READ B1(ID) :NEXT I;FOR I=-1 To 4:, FOR J 一 1 TO 2:READ F(I,J) :NEXT J,I 

FOR I 王 1 TO 12:FOR J 王 1 TO 2:READ E$ (LI,J) :NEXT J,I 

FOR I 王 1 TO 9:READ D$ (DINEXT I:FOR I=-1 To 12;READ W$(OD:NEXT I:READ W1$(1D)yW1$(2) 
S$=D 和 $(9):FOR I 王 1TO 6:S$$=S$ 十 “ "十 W$(D:NEXT I:S$ 一 ?十 S$ 十 ”十 S$ 十 
“ “+S8 

FOR I 王 1 TO 6:E(G,1) 一 4:E(I 十 6,1) 一 6:E(I,2) 一 19:E(I 十 6,2) 一 21:NEXT I:E(2,2) 一 18 

DATA 014AC11A1A6BBABBFA9,02A5622A5AAFBBBFAA ,52A4DO3A6FAFFBFFFAA,01D 
2414E6A5AB6AAFA5,02D9426A1A6BBABBFA9， 42D5507A5AABBBBBFAA ,0156817A6FAF 
FEBFFFAA,029AC28E6A5AB6AAQ5 ,2295D1OA1A6BBAABBFA9 ,014AC20A5AABBBBFAA 

DATA 6149901A6FAFFBFFFAA,034C13E6A5AB6AAFA5,019242491A6BBABBBA9 ,53A 
A506A1A6BBBBBFAA,01B5416A66BABFBBFFAA,00D6A26A6A5AB6AAB95 ,212D90891A6A 
BABAFA,02958191A6BBBBBFA9,7349A3OQ6BABFBBFFAA,0349411A6A5AB6AAB95 

DATA 03A4A2391A5ABABAFA5ABABAFA5,5364904A1A6BBBBBFA9,036A415A5AABFBBFFAA ,016 
D425A6A5AB6AAB95,415B50791A5ABABAFA5,012B417A1A6BBABBFA9,0295628A5AAB 

FEBBBFAA ,2292D09A6A5AA6AAA55,034962191A5AB6AAFA5 ,62C9502A1A6BBABBFA9 

DATA 02D4813A5AABFBBBFAA ,02EA424A6A5AA6AAA55 ,52DA906A1A5AB6AAFA5,015 
AC16A1A6BBABBFA9,012B626A5AABBBBBFAA,3126D07A6AAA55,02922C1991A5A 
B6AAFA5,72C9630A1A6BBABBFA9,01C941A5AABBBBBFAA,01D4A22A6A5AA6AAA55 

DATA 61B490491A5AB6AAFA5,02B5415A1A6BBABBFA9， 0156A25A5AABBBBBFAA， 
4155906A6A56A6AAA55,0325C1891A5AB6AAB95,0192C2891A6BBABAFA9 ,2392910A1A5B 
BBBBFAA,03A9421A6656A66AA55,736950351A5AB6AAB95,016C81391A5ABABAFA9 

DATA 02B5424A1A6BBBBBFAA,52AB505A6656A66AA55,014D81651A5AB6AAB95 ,02A 
5A2791A5ABABAFA5,32A5508A1A6BBABBFA9,0352819A6556A66AA55 ,825290151A5A 
B6AAB95,02E951291A5AB6AAFA5,016AA22A1A6BBABBFA9,615A903A5556A666A55 

DATA 02AB41551A5AA6AAA55,014B62591AB6AAFA5,414AD06A1A6BBABBFA9 ,02A 
5417A5556A666A55,035262951A5AA6AAA55,31D251091A5AB6AAFA5,02D9421A1A6B 
BABBFA9,72B5502A55566666A55,015681351A5AA6AA55,0296C2491A5AB6AAA55 43A 

DATA 5295D05A1A6BBABBFA9,014AC15A55566666A55,01A4C2751A56A6AAA55 ,43 和 A 
4D0991A5AB6AAFA5,01D2419A1A6BBABAFA9,83AA501655166666A55 ,01B541251A56 
A66AA55,00B6A2291A5AB6AABA5,612D903A1A6ABABAFA9,0295814A55166666A55 

DATA 0349A2651A56A6655,434950791A5AB6AAB95,03A481891A5ABABAFA9 ,13B 
2429A15166566A55,036A1151656A66AA55,016D42151A5AB6AAB95 ,615B50291A5A 
B6BAFA5,00AB412A15166566A54,029562451556A666A55,5292D0551A5AA6AAB95 


100 DATA 0349416A1A5AB6AAFA5,0364A27A15166566A54,32D490950556A666A55,02 


EA42051A5AA6AAA55,82D650191A5AB6AAFA5,015AC11A15166566A54 ,00AB6235055 
66666A55,5126D0351A5AA6AAA55,0192C1491A5AB6AAFA5， 02C962A15166566566A54 


500 Y1 王 1901 :Y2 一 2000:PRINT CHR $ (26) 
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505 
510 
515 
520 
525 
530 
535 
540 
545 


550 


555 
560 


565 


570 
575 


580 
585 
587 
590 
595 
600 
605 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
665 
670 
675 
680 
685 
690 
695 
700 
705 
710 
715 
720 
725 
730 
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VTAB 3;HTAB 3;PRINT D 和 (8);“(1901 一 2000)”; :INPUT N:IF N(Y1 OR N)Y2 THEN 505 
,Y=N 一 Y1:IFY=0THEN READ N$ :GOTO 520 
FOR I 一 1 TO Y:READ A$$ :NEXT I;READ N 和 
IF N/400=INTGN/400)THEN B(2) 一 29:GOTO 535 
IF N/100=INTCON/100) THEN 535 
IF N/4=INTON/4)THEN B(2) 一 29 
SO=N 二 INTCIN 一 1)/4) 一 INTCON 一 1)/100+INTCON 一 1)/400) 
AA 二 VALCILEFT$ CN 和 ,1):IF AA 王 1 THEN AA 一 10 
Ad$= MID$CN$ ,2,4);P=2:Q=14:GOSUB 810:FOR I=1TO 13:B2(D) 一 C(D) 十 29:NEXT I:B2(14) 一 C 
(14) 十 11 
A$= MID 和 CN 和 ,8,12):P 一 4:Q=24:GOSUB 810:FOR I=1 TO 12:FOR J 一 1 TO 2:E(G,J)=E(LJ) 十 C 
(Lx 2 十 J 一 2) :NEXT JI 
Bl 一 B2(14);B2 一 VAL(OMID$CN 和 ,6,2)) 一 1 
PRINT CHR $ (16); PRINT D $“SCS L80, V9”:PRINT D $“SCS B28”; PRINT TAB(3)“ 失 提 闪 ”5Ni 
“提亲 林 ”;GOSUB 800 


Q0 王 1:B 一 0:FOR I 王 1TO 4:C 和 一 ”;FOR J 一 1TO 3:AB 一 (I 一 1) * 3 十 J:S1=INT(S0 一 INT(S0/7) 
关 了 7) 

FOR K 王 1 TO S1:A$(1,JK) 一 “ ”:A 和 (2,J'K)E“ ”:NEXT 有 

FOR K 一 1 TO B1(CAB):A$$(1,J,K 十 S1) 一 STR$CK):IFK(I0THEN A 吊 (1,J,S1 十 K) 一” ”十 STR 
$(CK) 


B2 王 B2 十 1:IF B2( 一 B2(QO)THEN 610 

B2 一 1:Q0=Q0 十 1:B1=B1 十 1:IF Bl1)12 THEN B1 一 1 

IF AA 王 0 THEN 600 

IF B)0 THEN B 一 2:GOTO 600 

IF AA 一 B1 一 1 THEN B 一 1:B1 一 Bl 一 1:A$=D 和 $ (5) 十 W$(CAA):GOTO 645 
IF Bl1=1 AND B2 一 1 THEN A$ 王 D 和 $(1):GOTO 645 
A$=w$(B1) 二 D$(7):GOTO 645 

FOR L=1TO 2;IFK=E(AB,L) THEN A$ 王 E$(CAB,L):GOTO 645 
NEXTL:IF B 王 1 THEN 630 

FORL=2 TO 4;IF B1 王 F(GL,1) AND B2 王 F(L,2) THEN A$ =D$(L):GOTO 645 
NEXTL 

IF B2(11 THEN A$$=D$(6) 十 W$(B2):GOTO 645 

IF B2 王 20 OR B2 王 30THEN A$ 王 W$(B2/10) 十 W$(10):GOTO 645 

A$ 王 W1$(B2/10) 十 W'$(B2 一 INT(B2/10) * 10) 

A$(2,J,S1 二 K) 一 Ai 种 :NEXT K 


FOR K 王 B1(AB) 十 1 TO 42 一 S1:A$$(1,JK 二 S1) 一 ”:A 还 (2,J,K 十 S1) 一 “ ”:NEXT K 
S0 王 S0 十 B1(AB) :IF AB(11 THEN CC$ 一 W$$(CAB) 十 ” ”十 D$ (7) :GOTO 665 
CC$=W$(10) 十 ” ”十 W 和 (CAB 一 10) 十 ” ?十 D$ (7) 


C 有 ==C$ 十 ^” ?CC$ 汗 < ?” 

NEXT J:C$ 王 LEFT$CC$ ,LENCC 和 $ ) 一 9) 

PRINT D $“SCS B10,V7”:PRINT C$$ ;PRINT“ ”:PRINT D$“SCS B15,V11”:PRINT S$ 
FOR R 一 1 TO 6;FOR S=1TO 3:FOR Z 王 1TO7:AB 一 (R 一 1) * 7 十 Z:IF A$(1,S,AB)()” "THEN 690 
NEXT Z,S:PRINT ”GOTO 730 

FORL=1To 2:;IFL 一 2THEN PRINT D 和 $“SCS B3,V13”:GOTO 700 

PRINT DH 人 B11,V8?” 

PRINT 中 :IFEL 一 2 THEN PRINT 多 

FOR F 王 1 TO3: FOR Q=1TO7: AB 一 (R 一 1) * 7 十 Q_ 

PRINT“ ”; :IFL 一 2 THEN PRINT“ ”; 

PRINT A$(L,J,AB); :NEXT Q 

PRINT 2 :IF 一 2 THEN PRINT 2 

NEXT J:PRINT“”:NEXT 工 ,R 

NEXT I:GOSUB 800:PRINT CHR$(16):END 





800 PRINT D $“SCS B8”:PRINT SPC(3); :FOR I 王 1 TO 33:PRINT“ x* 2; :NEXT I:PRINT” ”:PRINT” ?” 


805 RETURN 


810 L=LEN(A 和 $ ):FOR I=-LTO 1 STEP 一 1:B$ 王 MID$CA 和 $ ,D:B 王 ASC (B$):IF B(65 THEN B 王 B 一 48: 


GOTO 820 
815 B 王 B 一 55 


.820 FOR K=1TO 8/P:R=INT(IB/P):C(Q) 王 B 一 Rx*P:Q=Q 一 1:IFQ=0THEN 830 


825 B 王 R:NEXTK,'I 
830 RETURN 
ceeeeereereeen 
磁带 机 储存 数据 的 
另 一 种 方法 
沈阳 市 自行 车 链条 厂 一 车 间 ” 刘 兆 开 


目前 很 多 拥有 中 华 学 习 机 者 大 多 没有 软盘 驱动 
器 ,只 能 使 用 录音 机 做 为 外 贮存 。 但 受 磁带 的 质量 和 录 
音 机 的 影响 ,往往 不 能 把 程序 正确 装 入 磁带 ,也 无 法 知 
道 写 带 是 否 正确 。 一 个 程序 装 入 磁带 后 , 读 回 内 存 时 却 
出 现 65535……。 尤 其 是 很 长 的 程序 ,更 是 烦恼 。 
通过 实践 ,找到 了 另 一 种 方法 ,就 是 在 监控 状态 下 
用 二 进 制 数据 形式 将 程序 录入 磁带 .这 样 录入 磁带 后 ， 
可 以 换 一 个 地 址 把 程序 读 出 并 判断 是 否 正确 而 不 影响 
原 程 序 的 内 容 , 如 出 现 错误 可 以 重新 写 带 。 
具体 做 法 :程序 运行 正确 后 (也 可 以 先 不 运行 ) 键 
入 CALL-151, 进 入 监控 ,再 键入 69. 6A, 回 车 后 显示 的 
两 个 十 六 进 制 数 就 是 程序 的 末 地 址 。 低 位 在 前 ,高 位 在 
后 。 然 后 键入 0.FFW N 800。 高 位 .低位 WwW 按 下 录 
音 键 回 车 。 响 过 两 声 哪 , 并 且 出 现 提示 符 表 示 写 带 完 
毕 , 这 时 可 将 磁带 倒 回 原 处 , 换 一 个 地 址 读 回 来 检查 是 
否 正确 。 比 如 :键入 6000。60FFR N 6800.($6000 
十 未 地 址 )R 按 PLAY 键 , 回 车 (注意 :括号 里 的 数 要 计 
算 好 不 能 以 括号 里 的 形式 出 现 ) 。 如 果 不 出 现 ERR 说 
明 读 带 正确 可 以 使 用 .反之 则 说 明 有 问题 ,还 须 按 上 述 
方法 再 试 几 次 ,如 还 不 行 就 只 好 换 磁带 了 。 
往 回调 程序 时 键入 0。FFR N 800。 高 位 、 低 位 了 R 
回 车 后 ,第 一 个 哪 声响 过 出 现 ERR WAITING…… > 
再 出 现 提 示 符 后 , 读 带 完毕 。 按 QUIT 键 或 CTRL 一 C 
返回 BASIC。 还 须 提 一 下 的 是 无 论 读 带 、 写 带 都 是 在 监 
控 下 进行 的 。 此 方法 虽然 烦琐 一 点 ,但 非常 可 靠 。 





《中 华 学 习 机 }》 杂 志 征 稿 内 容 与 要 求 


一 、 征 稿 内 容 

《中 华 学 习 机 }》 杂 志 主 要 栏目 有 :国际 动态 .软件 评述 、 家 
庭 之 友 、 中 学 生 园地 ,电脑 神通 .电脑 文摘 ,游戏 程 序 擂台 赛 、 
教育 软件 大 赛 、 软 件 交 流 ` 老 人 与 电脑 .电脑 入 门 、 硬 件 知识 、 
操作 技能 、 实 用 程序 .程序 剖析 与 编程 技巧 .辅助 教学 与 研 
究 、 教 学 网 络 与 通讯 、 数 据 处 理 、 数 据 库 技术 、 接 口技 术 、 苹 果 
园地 、 故 障 检测 与 维修 、 市 场 信息 .知识 问答 .厂家 信息 、 企 业 
家 讲坛 .名 人 特写 .小 电脑 迷 、 新 产品 与 新 技术 、 初 学 者 园地 、 
竞赛 园地 用户 来 信 、 读 者 信箱 等 。 特 别 欢迎 中 .小学生 投稿 。 

二 、 征 稿 要 求 

1. 稿件 讲述 深入 浅 出 ,文字 通俗 易 懂 ,读者 喜闻乐见 , 易 
于 推广 应 用 。 

2. 稿件 一 定 要 用 方 格 纸 书 写 , 作 者 名 写 在 题目 的 下 面 。 
每 字 一 格 (包括 标点 符号 ) ,英文 单词 要 按 正常 写法 ,字迹 工 
整 ,标点 正确 。 

3. 技术 稿件 篇 幅 不 要 太 长 ,一 般 在 4000 一 5000 字 为 宜 
新 闻 动 态 稿 件 不 要 超过 500 字 。 

4. 插图 要 在 坐标 纸 上 描 绘 清楚 正确 。 程 序 最 好 用 打印 机 
打印 的 原件 。 对 较 长 的 汇编 语言 程序 如 用 机 器 码 形式 打印 
(16 进 制 代 码 ,每 行 8 个 ) ,为 便于 直接 照相 制版 ,程序 的 打印 
要 清楚 ,每 行 的 长 度 最 好 要 小 于 7cm, 字 号 约 5 号 .6 号 ( 即 与 
杂志 正文 字号 相仿 ) 。( 如 没有 打印 机 ,一 定 要 书写 清楚 ) 。 

5. 翻译 或 编译 稿 请 附 原 文 (复印 件 ), 并 注 明文 章 的 出 处 
和 作者 。 

6. 来 稿 一 经 采用 , 即 按 国家 稿酬 暂行 规定 付 优 惠 稿酬 。 
切 勿 一 稿 两 投 。 写 明 工 作 单 位 及 详细 通信 地 址 ,以 便 经 常 联 
系 。 来 稿 若 不 采用 ,一 般 不 予 退 回 。 

7. 来 稿 请 寄 : 山 东 省 潍坊 市 东风 大 街 60 号 《中华 学 习 
机 》 杂 志 编 辑 部 。 


欢迎 投稿 
感谢 支持 
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“ 接口 技术 。 
_ADC0809 与 APPLE 一 工 接口 电路 的 可 靠 性 分 析 


山东 大 学 电子 工程 系 ” 姜 伟 光 


在 APPLE 一 工 上 实现 对 ADC0809 的 接口 已 有 文章 介绍 。 本 文 拟 在 对 两 者 时 序 分 析 的 基础 上 ,讨论 了 两 种 实 
用 接口 电路 的 可 靠 性 ,推荐 其 中 的 一 种 并 给 出 有 关 汇 编 语言 程序 。 

一 \ADC0809 与 APPLE 一 工 的 两 种 接口 电路 

ADC0809 是 一 具有 8 通道 的 AD 转换 电路 。 它 与 微机 的 接线 有 :数据 总 线 Duo 一 D, 地 址 选择 A.B`C, 地 址 锁 
存 信号 ALE, 启 动 转 换 信号 START, 允许 数据 输出 信号 OE 及 转换 结束 信号 EOC。 只 有 将 这 些 信和 号 与 微机 有 关 信 
号 在 时 序 和 逻辑 上 有 机 的 配合 ,才能 实现 可 靠 的 工作 。 图 一 、 二 为 笔者 设计 并 进行 实验 的 两 种 与 APPLE 一 工 的 接 
口 电 路 。 






APPLE IT 总 线 


示 
肖 
听 
本 
和 
< 


图 二 

ADC0809 的 时 序 要 求 是 , 当 需 要 对 其 进行 启动 转换 前 ,通道 地 址 必须 提前 ALE 信和 号 至 少 25nS 稳定 在 地 址 选 
择 A.B、`C 的 输入 端 。 实 验证 明 , 当 A.B、C 稳定 后 ,ALE 和 START 信和 号 可 以 同时 输入 ,一 面 将 A.B、C 打 入 地 址 锁 
存 器 ,同时 启动 转换 开始 。 这 两 个 信号 的 脉 宽 应 不 小 于 100ns。 转 换 开 始 后 ,EOC 信号 为 负 脉 冲 ,其 宽度 大 约 100~ 
116hs, 即 转换 时 间 .。 当 EOC 上 升 沿 到 来 时 ,转换 结束 。 向 OE 端 发 出 一 个 正 脉冲 信号 ,有 效 数 据 便 出 现在 数据 总 线 
上 。ADC0809 的 时 序 关系 见 图 三 。 

二 \ 两 种 电路 的 可 靠 性 分 析 

由 图 一 ` 二 知 ,两 种 电路 的 区 别 在 于 地 址 选择 线 A.B、C 采用 了 不 同 的 信号 输入 。 前 者 采用 了 数据 总 线 Du、D,、 
D:, 后 者 采用 了 地 址 总 线 Au\,Al\A:。 但 是 ,这 点 不 同 却 导致 了 两 者 的 可 靠 性 的 差别 。 

分 析 两 个 电路 A.B、C 信和 号 的 不 同 ,必须 首先 分 析 APPLE 一 工 总 线 即 6502CPU 的 读 写 时 序 。 图 四 画 出 了 6502 
与 ADC0809 有 关 信 和 号 的 时 序 和 图 一 、 二 中 的 A.B`C 及 ALE.START 信号 的 时 序 。 

ALE\START 信号 是 R/W、2M 及 地 址 总 线 共同 有 效 产生 的 。 它 的 时 序 在 他 , 的 负 半 周 ,宽度 略 小 于 500ns。 由 
数据 总 线 提供 的 A.B、C 输入 信号 是 在 ALE.START 信号 有 效 200ns 后 才能 到 来 .这 种 情况 和 ADC0809 的 ALE 和 
A、B、C 的 要 求 是 互相 矛盾 的 。 意 味 着 不 可 靠 因素 的 存在 。 虽 然 图 一 电路 经 使 用 ,也 可 以 工作 。 但 上 述 分 析 证 明 ， 
对 多 通道 同时 循环 工作 采集 数据 的 时 候 , 会 出 现 不 可 靠 现 象 。 因 为 地 址 线 的 输入 存在 时 序 上 的 不 严 遵 。 因 此 ,不 
少 有 关 文 章 介绍 都 将 APPLE 工 总 线 的 Dv`Di、D; 接 至 ADC0809 的 A.B、C 的 输入 端 ,是 不 适当 的 。 

解决 上 述 问 题 的 方案 之 一 是 图 二 电路 中 的 改进 。 
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汇编 语言 子 程序 ， 
SOURCE FILE ， ADC 
”2000， 1 M 


----MEXT OBJECT FILE NAME IS ADC. OBJO 


1000: 2 
1000;A2 00 3 ADC 

1002:9D 30 C4 4 DATAI1 
1005:AD 38 C4 5 DATA2 


EQU 


ORG 
LDX 
STA 


LDA 





$2000 


$1000 
#0 


$C430 ,X 


$C438 


TWS:100 一 200ns 
TWALE:100 一 200ns 
TS:25 一 50ns 
TH:25 一 50ns 
TEOC:8 十 2hus 

TD:1 一 2. 5hs 
TC:100~116hs 


图 四 中 ,A.B、C' 就 是 图 二 中 的 地 址 选择 线 
的 时 序 图 。 由 于 由 地 址 总 线 提供 ,所 以 A、.B、C'/ 
反而 提前 于 ALE .START 信和 号 200ns 就 稳定 有 
效 了 .。 这 样 , 当 ALE 信号 到 来 时 ,就 能 非常 可 靠 
的 将 地 址 选择 打 入 地 址 锁 存 器 并 同时 启动 转 
换 ,一 个 新 的 转换 周期 开始 了 。 当 转换 结束 , 执 
行 一 条 读 指 令 就 将 模拟 输入 信和 号 的 有 效 数 读 入 
到 微机 中 。 如 改变 其 他 通道 的 输入 ,将 通道 号 上 
提前 ALE 信和 号 稳定 在 地 址 线 上 即 可 靠 的 读 取 
该 通道 的 模拟 信号 的 数据 。 因 此 ,图 二 较 图 一 而 
言 , 可 靠 性 大 大 提高 ,是 一 种 较 理想 的 AP- 
PLE 一 工 微机 与 ADC0809 的 接口 设计 方案 。 


三 、 程 序 介 绍 

下 面 给 出 了 图 二 电路 的 汇编 语言 子 程序 。 
程序 中 通道 号 的 变换 使 用 了 6502CPU 的 X 绝 
对 变 址 的 寻 址 方式 。 使 用 非常 方便 。 

首先 将 通道 号 送 入 X 寄存 器 。 然 后 执行 一 
条 X 绝 对 变 址 的 写 指令 , 则 A.B、C 先 于 ALE 
信号 有 效 , 将 通道 号 X 中 的 内 容 打 入 地 址 锁 存 
器 。 并 启动 转换 开始 ,这 条 X 绝对 变 址 指令 的 
执行 完成 了 上 述 三 个 动作 。 其 后 ,开始 判断 转换 
结束 和 否 。 一 旦 结束 ,用 一 条 读 指 令 将 数据 读 入 
CPU 并 送 入 内 存 中 。 然 后 ,通道 号 增 1 ,判断 8 
路 通道 循环 完 否 ,未 完 重复 上 述 操作 。 和 否则 子 程 
序 返 回 。 该 子 程序 可 作为 汇编 语言 主 程序 或 
BASIC 语言 主 程序 调用 。 这 里 从 略 。 


一 一 内 存 首 址 
一 一 程序 首 址 
一 一 置 通道 号 
一 一 利用 x 绝对 变 址 寻 址 产 


生 A.B\C 及 ALE,START 信号 


37 





1008:29 01 6 AND ##1 . 
100A:F0 F9 7 BEQ DATA2 一 一 判 取 转 换 完 和 否 
100C:AD 30 C4 8 LDA $Cc430 一 一 读 取 数 据 
100F:9D 00 20 9 STA MX 一 一 送 入 内 存 
1012:E8 10 INX 一 一 通道 号 增 1 
1013:E0 08 11 CPX #8 
1015:90 EB 12 BCC DATA1 一 一 判断 8 路 通道 取 完 否 
1017:60 13 RTS 一 一 子 程序 返回 
参考 文献 
LINEAR DATABOOK National semiconductor corporation P8 一 60 
6502 微机 处 理 机 及 其 应 用 荣 树 趴 等 北 师 大 出 版 社 
APPLE 一 工 微机 A/D 一 D/A 卡 的 使 用 “ 陆 伟 成 苹果 园 “1985 
八 通道 APPLE 工 微机 数据 采集 系统 ” 李 瑜 祥 电子 技术 1987 
伍 翌 导 导 习 必 导 习习 导 己 导 似 导 导 导 导 性 导 导 导 导 导 导 导 导 导 导 导 导 导 己 己 己 己 己 忆 己 己 导 全 导 习 己 导 导 导 丑 忆 丑 导 导 导 导 习习 导 导 习习 己 习 性 习 导 导 导 习 导 习习 导 全 导 习习 
“ 竞赛 试题 选 登 ， 二 、 写 出 下 列 程序 运行 结果 (12 分 ) 答 案 写 在 答卷 纸 上 


为 了 结合 青少年 的 特点 ,在 本 期 (竞赛 试题 选 登 》 ”1.10 A$ 一 “ABCDEFGH” 
栏目 中 ,向 广大 青少年 朋友 及 老师 们 继续 推荐 “天 津 市。 20 FOR M=0TO2 
青少年 计算 机 程序 设计 竞赛 (初中 组 ) 试 题 ” 供 你 们 参 30 X$ 王 LEFT$(A$ ,5 一 2x MD) 


考 。 40 READY 
栏目 主持 人 段 文 傅 50 B$ 王 MID$(CSTR$CY),M 十 1,1) 
60 PRINT B$ ;一 一 ”5X$ 


1990 年 天 津 市 青少年 计算 机 程序 设计 竞赛 [初中 组 ] 试 都 。 7、 


80 DATA 1,12,123 
90 END 

2.5 DIM A(10,10) 
10 FOR M 王 1 TO 5 
20 FOR N 王 M TO 5 
30 A(C2xN 一 M,M)=N 
40 AGCN,2*N 一 M) 一 M 


一 \ 填 空 (每 小 题 2 分 共 20 分 ) 答 案 写 在 
处 | 

1, 将 十 进 制 的 数 254, 5 化 为 二 进 制 的 数 是 

2. 将 二 进 制 的 数 111011. 101 化 为 十 进 制 的 数 是 


3.INT(5. 312) * 100 的 值 是 





50 NEXTN 
4. 求 二 进 制 数 (101011)* 十 (1001)*X (101)* 结果 是 (二 进 制 ) 0 
70 PRINT A(2,5),A(5,2) :END 
5, 写 出 算术 表达 式 一 BXG 的 BASIC 表达 式 是 3.10 DEFFN AGO 一 XxX+1I/X 十 2 


6. 产生 50 一 60 随机 数 ( 包 括 50 和 60) 的 BASIC 表达 式 是 20 READ X 
和 30 IF X= 一 1 THEN END 
7. 已 知 园 的 半径 3 米 , 用 立即 执行 方式 求 出 圆周 长 的 语句 是 40 S=S 十 FN ACX) 








求 圆 的 面积 语句 是 50 PRINT S 
8, 已 知 A 王 2,B 一 4,X(C1) 一 5,X(2) 一 9,X(3) 一 13,X(C4) 一 6， 60 GOTO 20 
X(5)=7Y(1) 王 5,Y(2) 一 19， 70 DATA 1,2,4, 一 1 
Y(3) 王 16,Y(4) 王 16,Y(5) 一 17 4.10 FOR A 一 0TO 4STEP 0.8 
求 X(GB 一 A) 一 XGCY(A) 一 Y(B)) 一 20 ON A GOSUB 100,200,300,400,500 
30 PRINT A,X 
9. 满足 INTCX* 100 十 0.5)/100=3. 82X 的 取 值 范围 是 40 NEXT A:END 


100 X 一 A 十 1:RETURN 

10. 一 个 数 X 是 三 位 数字 , 求 该 数 X 个 位 数 的 BASIC 表达 式 200 X 王 A 十 2:RETURN 
是 求 该 数 X 百 位 数 的 BASIC 表达 式 是 300 X 一 A 十 3:RETURN 
400 X 一 A 十 4:RETURN 
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500 X 一 A 十 5:RETURN 
三 \ 根 据 以 下 程序 写 出 表示 的 数学 公式 画 出 框图 。(8 
分 ) 

10 INPUT“N 一 ?5N 
20 S=0:I=0 
30 IE IN THEN 80 
40 I=I 二 1 
50 X=1/Gx (I 十 1)) 
60 S=S 十 X 
70 GOTO 30 
80 PRINT“S 一 ”;S:END 
四 、 编 程 题 (10 分 ) 
打印 出 下 面 图 形 : 要 求 1. 不 能 只 用 PRINT 语句 ”2. 必须 
使 用 双重 循环 
0 
111 


22222 
3333333 
444444444 
3333333 
44444 
111 
0 
五 编程 题 (10 分 ) 
参加 计算 机 竞赛 六 名 学 生成 绩 如 下 
编号 ”出 生年 月 ” 成绩 年龄 加 权 成 绩 
1 77.5 83 
2 77.8 86 
3 74.6 81 
4 76. 11 93 
5 73.1 88 
6 75. 12 87 


编写 一 个 程序 解决 如 下 问题 
1. 输入 六 名 学 生 基 本 情况 
2. 计算 年 龄 加 权 公式 是 :年 龄 加 权 成 绩 == 成 绩 X 15/ 实 
际 年 龄 (实际 年 龄 以 1990 年 5 月 减 去 出 生年 月 ) 
3. 以 年 龄 加 权 排 序 从 高 到 低 并 打印 出 排序 后 的 学 生 情 
况 
4 以 年 龄 加 权 成 绩 作 出 一 个 图 表 ( 文 本 ,图 形 方式 均 可 ) 
六 、 编 程序 (10 分 ) 
按 数 字 1 一 9 顺序 在 其 之 间 添 加 “十 ?或 “一 ”使 结果 等 于 
15, 打 印 出 所 有 可 能 的 情况 ( 画 框图 ) 
例如 :1 一 2 一 3 一 4 十 5 一 6 十 7 十 8 十 9 一 15 
1 一 2 十 3 一 4 十 5 十 6 十 7 十 8 一 9 一 15 
1 一 2 十 3 十 4 一 5 十 6 十 7 一 8 十 9 王 15 


1990 年 天 津 市 青少年 计算 机 竞赛 操作 技能 试卷 


初中 组 (一 ) 
按 以 下 字母 输入 ,要 求 在 三 分 钟 内 完成 ,错误 不 能 超过 

四 个 字符 ,达到 以 上 条 件 得 30 分 ,否则 得 0 分 
注 :(1) 每 一 行 开始 有 一 个 行 号 
〈2) 每 一 行 结 束 打 回 车 
(3) 空 的 地 方 是 空格 键 
ASDFG ASDFG ASDFG ASDFG ASDFG 
;LKJH ;LKJH;LKJH ;LKJH ;LKJH 
GHIUKLMNOPQRSTUVWXYZABCDEF 
GHIKLMNOPQRSTUVWXYZABCDEF 
IS HE A PEASANT? ARE YOU STUDENTS? 
YES，HE IS. YES,WE ARE. 
WHAT IS THI 


习 中 四 全 旬 昌 靖 


初中 组 (二 ) 
按 以 下 字母 输入 ,要 求 在 三 分 钟 内 完成 ,错误 不 能 超过 

四 个 字符 ,达到 以 上 条 件 得 30 分 ,否则 得 0 分 
注意 :(1) 每 一 行 开始 有 一 个 行 号 

(2) 每 一 行 结束 打 回 车 

(3) 空 的 地 方 是 空格 键 
QWERT QWERT QWERT QWERT QWERT 
POIUY POIUY POIUY POIUY POIUY 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 
IS SHE A NURSE? ARE THEY STUDENTS? 
NO,SHE ISN 工 . SHE IS A DOCTOR. 
NO ,T 


人 
“ 电脑 神通 


小 小 学 习 机 ”解决 大 问题 


据 杭 州 钢 窗 厂 陈 仁 报道 :杭州 钢 窗 厂 是 国家 定点 
生产 钢 门 、 钢 窗 的 专业 厂家 。 生 产量 大 、 规 格 型 号 系 杂 
不 一 。 生 产 前 ,首先 要 对 每 份 订 单 所 签 的 规格 型 号 进行 
解体 放样 。 所 谓 解 体 放 样 , 就 是 对 订货 规格 型 号 进行 分 
解 , 精 确 计 算出 一 根 根 单 件 的 长 度 尺 寸 与 数量 .连接 方 
式 和 附件 数量 等 。 陈 仁 同 志 用 小 小 中 华 学 习 机 为 厂 开 
发 了 “微机 钢 窗 放样 绘图 系统 ”, 取 代 了 人 工 解体 放样 ， 
提高 了 生产 效率 、 节 约 大 量 原材料 ,大 大 减轻 了 劳动 强 
度 。 


中 辐 必 中 昌 玫 
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. 新 产品 ， 


(Cs 
浴 坊 计算 机 公司 王 雪 
CEC 一 PC 是 最 新 推出 的 PC 型 中 华 学 习 机 , 现 将 ” 介 如 下 : 
主要 性 能 及 结构 介绍 如 下 : 。 与 IBM PC/XT 全 兼容 
一 .CEC 一 PC 与 IBM PC/XT 性 能 指标 比较 。8284 生成 两 种 时 钟 输入 给 CPU 


CEC 一 PC 是 以 IBM PC/XT 作为 原型 机 ,在 设计 上 
与 IBM PC/XT 全 兼容 , 它 集 IBM PC/XT 兼容 机 优点 
于 一 身 , 增 加 了 汉字 功能 ,是 一 种 具有 普及 性 的 微机 。 
硬件 设计 选用 国际 比较 流行 和 先进 的 IBM PC/XT 单 
片 机 作为 系统 控制 芯片 ,采用 现代 计算 机 比较 先进 的 
表面 封装 技术 ,将 2 片 100 条 腿 的 TACT80101 与 G8 
封装 在 主机 大 板 上 ,提高 了 主机 的 稳定 性 及 可 靠 性 , 主 
机 的 功率 消耗 比 原 机 降低 了 许多 。CEC 一 PC 并 集 显 
示 、 软 驱 . 打 印 及 其 它 各 功能 于 一 体 ,一 块 主板 无 需 增 
加 任何 功能 卡 , 可 与 IBM PC/XT 原 机 相 比美 。 下 面 是 
CEC 一 PC 与 IBM PC/XT 及 兼容 机 的 技术 指标 比较 : 


CEC 一 PC IBM PC/XT( 兼 容 机 ) 
CPU 8088 8088 
协 处 理 器 8087 8087 
主 频 4.77/8/10(MHz) 4.77/8(MHz) 
RAM 256K 一 640K 256K 一 640K 
ROM 40K 40K 


以 下 指标 CEC 一 PC 做 在 主板 上 ,而 IBM 需 配 相应 


的 各 种 卡 
软驱 接口 1 一 2 台 1 一 2 台 
打印 口 ( 并 行 口 ) 1 个 2 < 人 
串 行 口 (RS232) 1 个 2 个 
实时 时 种 有 可 配 
游戏 口 有 可 配 
鼠标 器 口 有 可 配 
光 笔 口 有 可 配 
显示 器 口 带 五 种 显示 方式 ”一 般配 一 种 
扩展 覃 4 个 8 个 
汉字 库 国标 一 二 级 汉字 字 无 

库 16X16 点 阵 


二 、TACT80101 芯片 
该 芯片 是 IBM PC/XT 全 部 控制 芯片 及 逻辑 的 集 
成 ,本 集成 块 内 部 逻辑 比较 复杂 ,就 其 内 部 功能 分 块 简 
40 





。 用 14. 318MH 和 24MHz 两 种 晶体 ,可 进行 4. 77/ 
8MHz 两 种 时 钟 转换 , 若 用 30MHz 代 换 24MHz 可 
提供 4. 77/10MHz 转换 
“8288 总 线 控制 器 
。8237 4 通道 DMA 控制 ,通道 0 用 了 予 DRAM 刷新 
。8259 8 通道 中 断 控制 ,0 级 用 于 系统 的 基本 时 钟 ， 
1 级 用 于 键盘 。 

。8253 3 通道 计数 器 
通道 0 用 于 系统 基本 时 钟 
通道 1 用 于 DRAM 刷新 
通道 2 用 于 扬声器 

。8255 I/0 用 于 键盘 与 系统 配置 

.74322 键盘 接口 ”适用 于 PC/XT 类 型 键盘 

。74280 产生 奇偶 数 验 

.74670 4 位 DMA 页 寄存 器 

“ 等 待 状态 逻辑 

“NMI 控制 逻辑 

。2764 和 27256ROM 译 码 器 

。4164 和 41256DRAM 译 码 器 

。H/W 和 S/W CPU 速 庆 改变 指示 

“。RAS,CAS 和 MUX 的 内 部 延迟 线 。 

. 低 功 耗 ,CPU 在 8MHz 工作 时 ,只 消耗 350mw 

“小 PCB 尺寸 ,100 腿 扁平 塑料 封装 ,四 多 色彩 的 选择 

功能 

。 显示 电路 ,选用 超大 规模 集成 电路 G8 作 控制 芯片 ， 

可 支持 多 种 方式 显示 ,CEC 一 PC 可 支持 5 种 显示 方 
式 ， 

1. CGA 彩色 ,字符 ,图 形 显示 方式 

2. MDA 单 色 字符 显示 方式 和 HGC 高 分 辨 率 单 色 图 形 

方式 

3.TTL 单 色 仿真 CGA 显示 方式 

4. 复合 信号 单 色 ,彩色 监 示 器 方式 

5.PAL 一 D 制 彩 色 电 视 机 方式 
上 面 五 种 显示 方式 ,可 通过 软件 设置 或 拨 动 大 板 

上 的 显示 方式 开关 进行 硬件 设置 .因此 ,用 户 可 根据 需 

要 选 配 , 彩 显 、. 单 显 监 示 器 及 电视 机 等 显示 设备 。 


可 选 配 当 今 比较 流行 的 3. 5 英寸 ,720KB 软驱 。 
。 可 选 配 3. 5 英寸 ,20 一 40MB 的 硬盘 
“ 多 种 汉字 输入 方案 供用 户 选 用 

1 基本 汉字 系统 盘 ( 包 括 拼 音 , 区 位 等 汉字 输入 
法 ,并 带 有 制 表 符 , 造 字 等 功能 ) 

2 五 笔 拼 形 汉字 系统 盘 ( 包 括 区 位 ,五 笔 字 型 ,五 
笔画 等 汉字 输入 法 ) 

3 笔 形 汉 字 系统 盘 ( 包 括 区 位 , 笔 形 码 ,声韵 笔 形 


. 码 等 输入 方案 ) 


4. 24 行 汉字 显示 系统 盘 等 . 

由 于 汉字 库 已 做 到 主机 大 板 上 ,因此 ,各 种 输入 方 
案 占用 内 存 的 字 节 都 很 少 , 可 节省 大 量 内 存 供用 户 使 
用 ,有 效 地 解决 了 CCDOS 占用 大 量 内 存 的 矛盾 , 极 大 
地 方便 了 用 户 。 

三 .CEC 一 PC 系统 配置 及 大 板 逻 辑 框图 



























































:| 8088 CPU 
TACT 80101 _> 医 于禁 堵 
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主机 大 板 原理 框图 
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新 书 


由 陈 星 火 、 于 永 顺 、 王 相 东 \ 王 广 等 人 合作 编写 的 
《中 华 学 习 机 、 革 果 机 软件 大 全 》 第 一 册 已 于 近日 由 电 
子 工业 出 版 社 出 版 发 行 。 

本 《大 人 全》 汇集 了 适用 于 中 华 学 习 机 及 革 果 机 的 各 
种 类 型 的 软件 上 千 种 。 以 分 册 的 形式 陆续 出 版 。 在 第 
一 册 内 ,向 读者 详细 介绍 了 30 多 个 软件 ,分 为 系统 工 
具 类 、 辅 助教 学 类 、 幼 儿 教 育 类 、 益 智 游戏 类 、 应 用 类 。 

《大 人 全) 为 广大 中 华 学 习 机 用 户 提供 了 十 分 有 益 的 
信息 


[NE 





介 绍 


“用 户 通过 阅读 4 大全》 可 了 解 软 件 的 性 能 .内容 、 
使 用 对 象 、. 适 用 范围 等 《大 全 》 相 当 于 软件 的 购物 指 
南 , 可 使 你 有 针对 性 地 选 购 软件 。 

。 对 于 已 有 某 个 软件 的 用 户 ,人 《大 全 》 提 供 了 详尽 
的 使 用 说 明 , 使 你 可 以 最 大 限度 地 发 挥 软件 的 功能 。 

*"《 大 全 》 作 者 将 尽量 选择 众多 软件 中 的 精品 、 新 
品 向 用 户 介绍 ,以 起 到 信息 交流 、 宣 传 软件 .引导 消费 
的 作用 。 
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闽 数 的 读者 、 作 者 ， 
目 《 芝 果园? 杂志 84 年 创刊 和 90 年 更 名 为 《中 华 学 习 机 }》 杂 志 
以 来 ,在 广大 作者 和 读者 的 关怀 和 支持 下 ,发 行 量 日 益 增长 ,稿件 
质量 和 编 印 水 平 不 断 提高 ,为 计算 机 普及 事业 做 出 了 应 有 的 贡献 。 
然而 《苹果 园 》 和 人 《中华 学 习 机 ?杂志 虽 是 全 国 Apple 机 协会 和 中 国 
中 华 学习 机 普及 协会 的 会 刊 ,但 是 ,至 今 仍 没 有 争取 到 公开 发 行 的 
全 国 统一 期 刊 号 , 故 均 以 内 部 发 行 期 刊 发 行 。 近 日 接 到 邮电 局 通 
知 ,邮电 部 1990 年 69 号 文告 ,邮费 调价 后 ,内 部 发 行 期 刊 的 邮费 
要 按 信件 或 纸 品 包 衷 计价, 不 准 以 印刷 品 计价 邮寄 。 这 样 , 一 本 48 
页 的 杂志 ,邮费 要 1 元 之 多 , 印 好 的 Noll 和 正在 印刷 的 Nol2 两 
期 暂时 均 无 法 邮寄 ! 明年 又 怎么 办 ? 这 是 我 们 和 全 体 同仁 最 关心 
的 问题 , 现 将 有 关 问 题 敬 告 如 下 ， 
1.90 年 11.12 两 期 ,我 们 决心 积极 向 邮局 反映 情况 争取 发 寄 
给 读者 ,但 可 能 不 会 及 时 ,请 大 家 谅解 。 
2. 我 们 积极 向 上 级 领导 部 门 反映 情况 ,努力 争取 到 全 国 公开 
发 行 的 统一 期 刊 号 ,91 年 公开 发 行 。 
3. 在 没有 接 到 我 们 的 重新 征订 通告 前 ,请 不 要 汇款 和 寄 稿 件 
到 编辑 部 。 
4. 已 汇款 和 寄 来 的 稿件 我 部 暂 存 , 如 争 不 到 公开 发 行 期 刊 号 
我 们 将 退 给 大 家 。 有 的 同志 愿意 要 回 , 可 来 信 说 明 , 我 们 可 
将 汇款 与 稿件 退回 。 
5. 其 他 一 些 活动 ,如 评 刊 的 总 结 与 评选 ,竞赛 的 评选 ,也 暂缓 
进行 。 
以 上 敬告 出 于 无 奈 , 恳 请 大 家 谅解 ,谢谢 11 


《中 华 学 习 机 }》 杂 志 社 
一 九 九 〇 年 十 一 月 
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“初学 者 园地 ， 


Apbpblesoft BASIC 人 门 ]( 连 载 ) 


第 九 讲 ”使 用 外 设 档 口 


大 多 数 苹果 机 的 用 户 都 给 机 器 配备 了 至 少 一 台 外 
部 设备 ,有 些 人 还 配备 了 多 种 外 设 。 外 部 设备 包括 许多 
类 型 ,从 打印 机 到 区 形 设备 等 ,最 常见 的 外 设 是 磁盘 驱 
动 器 。 每 一 种 新 的 外 设 都 带 来 一 套 新 的 操作 指令 和 编 
程 要 求 。 

我 们 不 可 能 详细 介绍 每 一 种 外 部 设备 ,只 能 择 其 
要 者 ,介绍 一 些 常用 的 外 设 , 但 是 ,所 介绍 的 原则 却 适 
用 于 许多 其 它 的 外 设 。 本 讲 将 概述 Applesoft 的 一 些 党 
用 命令 及 外 设 槽 的 管理 方法 ,另外 ,也 将 概要 介绍 一 些 
游戏 杆 槽 口 的 用 法 。 

苹果 机 的 择 槽 是 用 来 与 外 设 进 行 通信 
的 。 如 果 你 有 一 台 工 十 , IEe 或 荆 GS, 请 打开 它 的 机 盖 ， 
在 机 器 的 后 部 ,你 会 看 到 一 排 长 条 形 的 槽 ,这 就 是 插 
槽 。 
请 注意 , 插 槽 从 左 到 右 编 成 1 一 7 号 。 你 的 机 器 的 
一 个 槽 或 几 个 槽 内 可 能 插 有 一 块 边 上 带 接口 的 印刷 线 
路 板 ,通常 这 种 板 称 作 “ 卡 ”。 磁 盘 驱 动 器 卡 含 有 使 驱动 
器 操作 的 电器 部 分 以 及 把 卡 与 驱动 器 连接 在 一 起 的 电 
缆 。 表 一 给 出 了 典型 的 槽 号 设置 。 你 可 以 改变 这 种 模 
号 设置 ,但 要 牢记 :有 许多 程序 都 是 按 本 表 的 槽 号 设置 
工作 的 (I 十 还 有 一 个 0 号 模 , 这 个 槽 一 般 用 来 接 插 
I 十 内 存 扩展 卡 ) 。 
。 ” 表 一 .典型 的 槽 号 设置 


槽 | 卡 | 


打印 机 接口 卡 
串 行 设 备 接口 卡 


80 列 卡 

鼠标 器 接口 卡 

磁盘 驱动 器 控制 卡 (第 二 ) 
磁盘 驱动 器 控制 卡 (第 一 ) 
7 “| 硬盘 驱动 器 控制 卡 








忆 9 一 





史 四 心 居 











现在 ,你 已 经 看 清 了 插 槽 及 控制 卡 是 什么 样子 ,请 
你 关上 机 盖 ,请 我 们 来 了 解 它 们 是 怎样 工作 的 。 


RR##n: 通 向 插 槽 的 通路 | ”键入 RR# ,后 边 加 一 
个 合法 的 槽 号 ,就 把 计算 机 的 输出 传 至 与 该 号 插 槽 相 
42 





连 的 外 部 设备 上 。 

这 条 规则 有 一 个 例外 , 即 0 号 槽 不论 0 号 槽 连接 
的 是 什么 设备 ,也 不 论 你 的 苹果 机 有 没有 这 个 设备 ,使 
用 RR#0 时 ,计算 机 把 输出 都 传 到 屏幕 上 ,而 不 是 送 
到 该 槽 的 外 设 。 | 


华 果 机 内 有 一 个 手动 控制 槽 , 具 
有 很 好 的 输入 输出 能 力 。 这 个 控制 槽 在 革 果 工 和 工 十 
机 中 位 于 机 内 主机 板 上 , 称 为 游戏 I /0 槽 口 。 在 工 C 
机 中 , 它 是 一 个 D 形 的 连接 口 , 位 于 机 器 的 后 部 , Ie 
和 IGS 的 槽 则 位 于 两 个 地 方 。 不 同 的 机 型 ,控制 槽 的 
位 置 与 配置 不 同 , 但 其 功能 却 一 样 。 我 们 都 往 这 个 槽 接 
游戏 杆 ,但 恐怕 未 用 过 它 的 其 它 功能 。 

Applesoft 提供 的 使 用 游戏 杆 的 唯一 途经 是 PDL 
函数 , 它 使 苹果 机 可 以 接受 的 四 个 游戏 控制 值 给 变量 ， 
例如 :X 王 PDL(0) 

式 中 使 x 等 于 当前 游戏 控制 值 0, 它 的 值 在 0 和 
255 之 间 。 

这 里 需要 提醒 的 是 :如 果 在 程序 中 使 用 两 个 或 多 
个 PDL 语句 ,必需 用 一 段 程 序 把 两 个 PDL 语句 隔 开 ， 
以 免 它们 产生 干扰 和 影响 。 如 果 PDL 函数 设 定 的 值 小 
于 0 或 大 于 8, 就 会 引起 一 些 奇怪 的 结果 。 因 此 ,你 应 
当心 ,使 它 的 值 不 要 超出 允许 的 范围 。 

为 利用 手动 控制 器 槽 口 的 另外 功能 ,要 用 到 
PEEK 和 POKE。 它们 比 Applesoft 的 大 部 分 命令 略为 复 
杂 , 因 此 ,你 会 更 感 兴趣 。 

苹果 机 能 够 处 理 三 个 按钮 开关 。 由 于 这 些 都 是 单 

独 的 按键 ,因此 ,只 有 两 种 可 能 的 状态 : 按 下 或 未 按 下 
(或 者 关 或 开 ) 。 下 面 的 语句 :X 一 PEEK( 一 16287) 
是 检查 0 号 游戏 杆 按钮 的 。 如果 按钮 按 下 ,X 等 于 或 大 
于 128。 反 之 ,如 果 按钮 未 按 下 ,X 的 值 为 0 至 127。 同 
理 , 可 检查 1 号 按钮 (PEEK (一 16286)) 和 2 号 按钮 
CPEEK( 一 16285)) 。 在 使 用 一 个 以 上 按钮 时 ,每 一 个 按 
钮 读数 应 当 赋值 给 单独 的 变量 。 


管理 磁盘 控制 器 和 驱动 器 | ”每 个 苹果 工 磁盘 控 
制 卡 可 以 管理 两 台 5. 25 英寸 磁盘 驱动 器 , 即 1 号 驱动 
器 和 2 号 驱动 器 。 假 若 你 希望 你 的 苹果 机 有 七 个 控制 
卡 , 共 可 带动 14 台 磁 盘 驱动 器 (这 时 ,可 能 你 实际 需 一 
台 硬 盘 驱 动 器 ) 。 每 一 个 控制 卡 由 其 所 在 模 号 来 区 分 ， 
带动 一 台 或 两 台 驱 动 器 。 通 常 最 常见 的 是 在 6 号 槽 连 





接 一 张 卡 , 配 一 台 或 两 台 驱 动 器 。 既 使 你 只 有 一 张 卡 、 
一 台 驱 动 器 ,你 仍 可 能 希望 编写 适用 两 台 驱 动 器 的 程 
序 。 

控制 卡 和 驱动 器 用 来 第 一 次 引导 DOS 使 系统 启 
动 , 当 你 已 把 DOS 引导 到 某 一 驱动 器 , 则 该 术 号 与 驱 
动 器 号 将 适用 于 所 有 其 它 的 磁盘 操作 ,直到 所 用 槽 及 
驱动 器 命令 更 改 槽 号 及 驱动 器 号 为 止 。 

磁盘 操作 有 时 涉及 多 个 槽 、 驱 动 器 或 磁盘 卷 号 。 苹 
果 机 的 DOS 命令 包括 所 需 的 这 些 参数 。 在 使 用 这 些 参 
数 之 前 ,最 好 翻阅 一 下 讲座 中 有 关 磁 盘存 储 的 介绍 。 需 
要 记 清 的 一 点 是 : 槽 号 和 驱动 器 号 只 有 在 要 更 改 的 时 
候 才 重新 规定 它们 ,否则 在 程序 中 使 用 它们 时 不 必 每 
次 都 重新 规定 。 


打印 机 的 使 用 ”虽然 打印 机 有 的 看 来 是 很 复 


杂 、 很 难 操作 的 外 部 设备 ,但 只 要 懂得 它 的 一 点 基本 知 
识 ,打印 机 的 使 用 也 并 不 难 。 为 此 ,我 们 假定 你 已 有 一 
个 打印 机 接口 卡 , 并 连接 在 1 号 槽 口 .接口 卡 上 连接 着 
一 台 打印 机 ,并 假定 你 已 知道 如 何 开打 印 机 、 如 何 装 打 
印 纸 , 总 之 打印 工作 已 准备 就 绪 。 

如 果 你 正 编 程序 , 想 把 程序 清单 打印 出 来 ,你 可 以 
打开 打印 机 ,键入 :PR#1 

令 输 出 传 到 打印 机 ,然后 键入 LIST ,程序 清单 就 
将 按 屏 幕 上 显示 的 样子 打印 出 来 .如 果 想 停止 打印 ,只 
把 程序 显示 在 屏幕 上 ,键入 : 

PR##0 

也 许 ,你 的 打印 机 能 打印 行 宽 在 40 个 字符 以 上 的 
程序 行 。 现 在 ,我 们 打印 一 个 行 宽 80 列 字符 的 程序 清 
单 。 键 入 :PR##1 

Control 一 I 80N 

PR#1 把 输出 传 到 打印 机 , 当 键 入 Control 一 I 80N 
时 ( 按 下 Control 键 不 放 ,同时 按 工 键 ), 可 能 会 出 现 
SYNTAX ERROR 出 错 信息 。 现 在 ,键入 LIST, 查 看 80 
列 格式 的 程序 。 


许多 打印 机 人 允许 在 程序 中 设置 
数字 选择 项 。 例 如 ,Image Writer 打印 机 ,允许 你 选择 打 
印 尺寸 ,固定 的 或 比例 的 间距 ,普通 打印 或 加 重 打印 ， 
图 形 打印 , 整 版 打印 , 横 表 或 坚 表 等 。 为 设置 这 些 选 择 
项 ,要 把 一 、 两 个 控制 字符 送 入 接口 卡 。 仍 以 Image 
Writer 打印 机 为 例 , 控 制 字 符 Escape 一 N 或 CHR 
$ (27);“N? 选 择 每 英寸 10 个 字符 的 打印 格式 。CHR 
$ (12) 是 提供 格式 的 控制 符 。 如 果 你 想 在 程序 中 设置 
这 类 选择 巧 可 参考 打印 机 和 接口 卡 手 册 中 的 规定 。 

其 它 较为 通用 的 外 设 有 :调制 解 调 器 .80 列 显示 
卡 、 内 存 扩充 卡 、. 光 笔 . 声 音 合成 器 .图 形 输入 板 。 每 一 
种 外 设 都 要 占用 少 一 个 槽 口 , 因 此 ,有 些 人 为 安 设 所 有 
这 些 外 设 而 发 愁 。 实 际 上 ,有 些 外 设 制造 厂家 提供 较 多 
槽 口 的 扩展 槽 。 

设计 质量 优良 的 外 设 使 用 管理 不 需要 专门 编程 ， 
它们 都 遵循 大 多 数 外 设 的 通用 条 件 。 了 解 各 种 外 设 情 ， 
况 的 最 好 途径 是 它们 的 使 用 手册 。 你 购置 了 一 台 苹 果 
机 ,首先 要 做 的 工作 应 当 是 试验 它 的 输入 输出 设备 。 不 
要 怕 试 验 , 它 不 会 损害 你 的 机 器 ,相反 , 却 会 帮助 你 提 
高 机 器 的 运行 能 力 。 








小 结 : ”使 用 外 设 槽 口 


1. 使 用 PR#n, 把 输出 传 到 某 一 播 槽 ,n 为 合法 
槽 号 。 

2. 使 用 PR 并 0, 把 输出 传 到 屏幕 。 
读 游戏 杆 槽 品 

1. 使 用 X=PDLCn) 读 游戏 杆 n 的 位 , 当 一 个 数 
数值 在 1 一 255 之 间 时 ,将 送 给 X。 

2. 为 读 取 0 号 游戏 杆 按钮 值 , 使 用 X 王 PEEK( 一 
16287) 语 名 ;为 读 取 1 号 按钮 值 ,使 用 X= (一 
16286) 语 句 ; 为 读 取 2 号 按钮 值 , 使 用 X= (一 
16285) 语 句 。 按 钮 按 下 时 ,这 些 语 句 把 128 或 
大 于 128 的 值 赋 给 X。 





如 果 你 的 打印 机 能 进行 密度 打印 ,使 用 Control 一 I 
宽度 N 时 ,可 打印 高 达 255 列 的 行 宽 。 当 然 , 会 出 现 
SYNTAX ERROR 出 错 信 息 , 因 为 这 种 行 宽 不 符合 Ap- 
plesoft 的 语法 。 为 了 避免 出 现 SYNTAX ERROR 信息 
可 在 程序 行内 加 入 PRINT CHR $ (9);“80N”。 许 多 接 
口 卡 也 有 其 它 一 些 控制 的 打印 机 功能 的 控制 字符 。 

若 想 使 输出 转 为 屏幕 显示 ,键入 PR#O。 当 然 ,你 
也 可 随时 把 想 打印 的 部 分 通过 这 些 程序 命令 的 方式 打 
印 出 来 。 当 你 想 重新 打印 输出 时 ,可 用 下 面 的 格式 : 

10 PRINT CHR 和 (4); “PR#12?2 

这 一 格式 是 ProDOS 操作 系统 要 求 的 ,在 DOS3. 3 
操作 系统 下 ,也 要 用 此 格式 。 





管理 磁盘 控制 卡 
1. 从 某 一 槽 号 和 驱动 器 号 引导 DOS( 或 ProDOS) 
后 ,以 后 全 部 操作 均 用 此 槽 号 和 驱动 器 号 , 直 
到 重新 设 定 槽 号 ,驱动 器 号 为 止 。 


1. 为 获得 硬 拷贝 清单 ,使 用 PR#n 命令 ,把 输出 
送 到 打印 机 ,然后 按 LIST。 其 中 nm 为 打印 机 接 
口 卡 所 在 槽 号 。 

2. 为 打印 80 列 宽 ,要 把 Control-I 80ON 送 至 打印 





机 。 在 程序 中 ,这 可 用 PRINT CHR $ (9); 
“80N” 语 句 来 实现 。 
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第 十 讲 ”绘图 初 阶 


按部就班 学 过 了 前 面 九 讲 的 内 容 后 ,你 的 编程 能 
力 一 定 得 到 了 很 大 提高 。 当 你 掌握 了 直线 式 编程 方法 
时 ,更 加 有 趣 的 事 便 会 开始 。 

们 果 机 能 产生 一 些 贷 有 趣味 的 图 形 显示 。 你 可 能 
见 到 过 那些 丰富 多 彩 的 商业 上 出 售 的 游戏 软件 ,这 些 
软件 便 是 利用 苹果 绘图 能 力 的 最 好 实例 。 

你 不 要 以 为 电脑 绘图 深 不 可 测 。 我 们 在 这 最 后 一 

讲 中 力求 把 你 领 进 图 形 世 界 ,介绍 一 些 绘图 的 基本 知 
识 、 一 点 作 图 技巧 . 愿 你 反复 练习 直至 掌握 蔷 果 机 作 图 
命令 。 
蔷 果 机 屏幕 显示 有 两 种 主要 方 
式 。 到 现在 为 止 ,我 们 只 使 用 了 其 中 的 一 种 即 文本 方 
式 。 标 准 的 文本 方式 每 屏 显 示 24 行 ,每 行 40 个 字符 或 
数字 (或 24 行 ,每 行 80 个 字符 数字 )。. 我 们 已 经 介绍 
过 ,有 多 种 方法 使 直线 式 文本 显示 形式 多 样 化 .对 许多 
程序 来 说 ,文本 方式 是 一 种 完全 适合 于 显示 输出 信息 
的 方法 。 

人 们 发 现 , 有 时 图 形 能 顶 成 百 上 千 的 词语 。 确 实 ， 
有 一 些 场合 使 用 其 它 显示 形 式 胜 过 文字 ,这 就 是 图 形 
方式 。 

苹果 工 有 两 种 基本 的 图 形 方式 : 低 分 辩 率 和 高 分 

辩 率 图 形 方式 。 低 分 辩 率 图 形 把 屏幕 划分 为 40 行 ,每 
行 40 个 格 ,屏幕 底部 留 出 4 行文 字 ,或 者 把 屏幕 划分 
为 48 行 ,每 行 40 个 格 ,底部 不 留 文字 行 。 高 分 辩 率 图 
形 把 屏幕 划分 为 280X 160 个 象 素 点 ,底部 留 出 4 行文 
字 ,或 者 280X 199 个 象 素 点 ,底部 不 留 文字 行 。 另 外 ， 
Ie, IEGS 以 及 内 存 128K 的 Te 还 能 显示 双 倍 高 分 辩 
率 图 形 , IE GS 更 能 显示 超 高 分 辩 率 图 形 。 后 两 种 图 形 
方式 不 能 用 Applesoft 直接 获取 ,所 以 本 讲座 不 探讨 它 
们 ， 
说 明 低 分 辩 率 图 形 显示 能 “的 庆 法 
是 设想 有 1600 个 方块 ,方块 大 小 形状 都 相同 。 每 个 方 
块 有 16 个 边 ,每 个 边 涂 成 各 种 不 同 的 颜色 。 请 你 在 心 
中 设想 把 这 些 方块 集中 到 一 起 ,组 成 一 个 40X40 的 方 
框 。 在 方 框 内 给 每 一 个 方块 都 标清 其 位 置 ,使 方块 都 能 
各 就 其 位 。 

一 切 就 绪 后 ,请 把 每 个 方块 都 放 到 它 自己 的 位 置 
上 。 记 住 ,就 位 后 的 每 个 方块 都 可 显示 16 种 彩色 边 的 
任何 一 种 颜色 。 如 果 你 愿意 ,可 把 1600 个 方块 都 放 到 
它们 自己 的 位 置 上 ,并 显示 同一 种 颜色 。 

假设 显示 黑色 边 颜色 的 方块 表示 空 区 。 把 一 些 方 
块 换 成 其 它 颜色 .这 样 , 当 我 们 把 相 邻 的 方块 涂 成 同样 
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的 颜色 , 便 可 以 产生 非常 好 看 的 横 线 或 竖 线 。 

当 你 开始 玩 这 些 方块 时 ,就 会 组 成 各 种 各 样 的 图 
形 。 划 横 线 和 坚 线 最 容易 ,也 最 好 看 。 对 角 线 、 园 或 其 
它 形状 的 图 形 则 较 难 。 
让 我 们 打开 苹果 机 , 玩 一 次 电子 方块 游 
戏 。 准 备 就 绪 后 ,请 键入 GR ,并 按 回 车 键 。 不 带 任何 参 
数 ,只 是 GR。 请 注意 ,这 时 屏幕 被 清 屏 , 上 面 什么 也 没 
有 ,你 已 进入 低 分 辨 率 图 形 方式 ,可 玩 游戏 得 分 了 。 现 
在 ,请 键入 COLOR= ,后 面 跟着 输入 1 一 15 中 的 任 
一 个 数字 。 

实际 上 ,共有 16 种 颜色 ( 见 表 1) ,但 0 是 黑色 , 它 
在 屏幕 上 显示 不 清楚 .我 们 已 打 入 了 两 个 命令 ,但 屏幕 
没 看 到 发 生 什么 事情 。 

现在 ,再 键入 PLOT 0,0, 看 到 屏幕 左上 角 的 彩色 
方块 了 吗 ? 这 是 0,0 位 置 。 屏 幕 右 下 角 位 置 是 39,39。 
当 你 键入 PLOT 39,39 时 ,就 可 看 到 屏幕 右 下 角 的 彩 
色 方 块 。 只 要 你 键入 的 参数 不 超出 屏幕 位 置 的 范围 , 便 
可 以 成 天 输入 PLOT X,Y 命令 ,其 中 X 表示 横 座 标 位 





置 (0 一 39),Y 表示 坚 座 标 置 (0 一 39) 。 a 
表 1. 低 分 辨 率 颜色 
0 黑 8 棕 
1 红 9 橙 
2 1: 深蓝 10 灰 2 
3 紫 11 粉红 
4 深 绿 12 浅 绿 
5 灰 1 13 黄 
6 中 蓝 14 绿 蓝 
7 浅 蓝 15 白 











为 了 改变 画 出 的 下 一 个 方块 的 颜色 ,键入 COLOR 
一 ,后 面 跟着 输入 另 一 个 颜色 的 代号 数字 。 反 复 练习 
了 这 些 命令 后 ,键入 COLOR = 0, 再 试 几 个 PLOT 命 
令 。 屏 幕 上 发 生 了 什么 ? 黑色 (0) 用 来 控 掉 前 面 画 出 的 
方块 颜色 。 
更 多 的 方块 | ”你 是 否 想 同时 画 出 一 个 以 上 的 方块 ? 
Applesoft 有 两 个 命令 做 此 工作 :HLIN 和 VLIN ,它们 是 
画 横 线 和 坚 线 的 。HLIN 是 在 竖 向 位 置 C 上 从 A 画 到 
B。C 在 0 与 39 的 范围 之 内 。 例 如 ,用 下 述 命令 可 在 屏 
顶 画 一 横 线 :HLIN 0,39 AT 0 
或 用 下 述 命令 在 屏 底 画 一 横 线 :HLIN 0,39 AT 39 

画 竖 线 的 道理 与 横 线 相同 。VLIN 是 在 横向 位 置 C 
上 从 A 画 到 B。C 也 是 在 0 与 39 范围 之 内 。 例 如 ,用 下 
述 命令 在 屏幕 左 侧 从 项 到 底 画 一 坚 线 : 

VLIN 0,39 AT 0 
用 下 述 命令 在 屏幕 右 侧 自 顶 至 底 画 竖 线 ， 





PLOT,HLIN,VLIN 命令 配合 使 用 ,可 以 画 出 任何 
形状 的 低 分 辨 率 图 形 .请 记 住 , 每 个 命令 执行 最 近 一 次 
COLOR 语句 规定 的 颜色 ,GR 是 确定 低 分 辩 率 图 形 方 
式 并 清 屏幕 的 命令 。 

我 们 来 编 一 个 程序 ,用 不 同 颜色 的 
方块 来 填 满 屏幕 。 请 键入 本 讲 所 附 LISTING 1 的 程序 
清单 ,用 下 述 命令 存盘 :SAVE COLORED. BLOCKS 

请 运行 此 程序 ,看 它 是 不 是 用 各 种 颜色 的 方块 填 
满 了 屏幕 ?你 是 否 打算 稍稍 改动 一 下 ,使 它 做 点 别 的 工 
作 ? 请 你 利用 这 个 展示 程序 作 起 点 , 花 些 时 间 来 练习 低 
分 辩 率 绘图 。 
假若 你 想 检 查 低 分 辩 率 屏幕 上 某 一 个 方块 
的 彩色 状态 ,可 使 用 SCRN() 函 数 :Z= 王 SCRNCX,Y) 
PRINT Z 

这 两 个 语句 读 X,Y 处 的 颜色 ,并 把 该 颜色 的 代号 
数字 显示 在 屏幕 上 。SCRN() 函 数 有 一 点 古怪 的 地 方 ， 
但 只 用 低 分 辩 率 图 形 方式 时 ,不 会 看 到 它 。 请 记 住 ,X 
要 保持 在 0 一 39 的 范围 内 ,Y 保持 在 0 一 39 的 范围 内 
(使 用 全 屏幕 图 形 时 为 0 一 47)。 

如 果 你 想 利用 全 屏幕 图 形 方式 的 
优越 性 ,多 获得 屏幕 底部 的 8 行 图 形 行 ,执行 GR 命令 
后 ,再 键入 : 

POKE -16302 ,0 

这 时 ,屏幕 竖 向 范围 由 0-39 改 为 0 一 47,4 行 文字 
行 不 再 出 现 。 

[返回 文本 方式 | 键入 TEXT, 便 退出 图 形 方式 。 不 需 
键入 参数 。TEXT 将 屏幕 冒 为 全 屏幕 文本 方式 ,退出 当 
前 的 图 形 方式 。 

我 们 再 返回 玩 小 方块 游戏 上 来 。 这 
一 回 ,我 们 让 你 收集 44800 个 方块 ,每 个 方块 八条 边 ， 
每 条 边 各 有 不 同 的 颜色 。 现 在 ,做 矩形 框 , 共 160 行 ,每 
行 280 个 小 方块 .把 一 个 方块 放 到 它 应 放 的 位 置 上 ,并 
设 为 黑色 。 

你 可 以 立即 发 现 画 出 的 图 形 与 前 面 的 图 形 不 一 
样 。 换 用 不 同 的 颜色 时 ,可 以 构成 更 复杂 、 更 精细 的 图 
形 。 画 出 的 对 角 线 比 低 分 辩 率 作 图 画 出 的 更 象 一 条 直 
线 。 

我 们 建立 了 一 个 高 分 辩 率 图 形 模拟 现在 ,我 们 就 
来 看 看 真正 的 高 分 辨 率 作 图 。 


设置 高 分 辩 率 图 形 方 式 | HGR 是 进入 高 分 辩 率 图 形 
方式 和 清除 高 分 辩 率 图 形 第 1 页 内 容 的 命令 。HGR2 
是 清除 和 显示 高 分 辩 率 图 形 第 2 页 内 容 的 命令 。HGR 
将 屏幕 设置 为 图 形 和 文本 混合 方式 ,屏幕 底部 留 有 4 
行文 字 行 。 若 不 愿 要 这 4 行文 字 , 键 入 POKE -16302， 





0, 转 入 全 屏幕 图 形 方式 (280X192) 。 

键入 HGR 后 ,屏幕 上 是 空 的 , 接 下 来 我 们 选择 颜 
色 。 高 分 辩 率 图 形 方式 的 颜色 比 低 分 辩 率 的 少 ,但 屏幕 
的 分 辩 率 却 大 大 提高 .从 表 2 可 以 看 出 ,高 分 辨 率 图 形 
的 颜色 有 : 黑 ` 绿 、. 紫 . 白 \. 橙 和 蓝 色 。 





表 2 高 分 辩 率 颜色 
0 黑 1 4 黑 2 
1 绿 5 橙 
2 紫 6 蓝 
3 白 1 7 白 2 








彩色 的 数字 代号 略 有 点 乱 : 有 两 个 黑色 和 两 个 白 

色 。 显 示 的 颜色 取决 于 画图 的 位 置 及 相 邻 象 素 点 的 颜 
色 。 假若 你 对 此 还 和 弄 不 大 清 的 话 , 请 不 要 着 急 。 我 们 前 
面 讲 过 ,有 时 图 形 能 顶 得 上 千言 万 语 。 让 我 们 来 画 几 个 
图 。HCOLOR 命令 是 设置 颜色 的 ,颜色 的 范围 为 0 一 7 
(参见 表 2) 。 现 在 ,假设 我 们 把 颜色 的 设置 为 HCOLOR 
一 1( 绿 色 ) 。 
有 一 个 简单 的 语句 代替 低 分 辩 率 图 形 的 
PLOT,VLIN 和 HLIN ,这 个 语句 便 是 HPLOT。 它 的 格式 
是 HPLOT X,Y, 它 在 X,Y 座 标 规定 的 位 置 上 画 出 一 
个 高 分 辩 率 的 点 。 点 的 颜色 由 最 近 的 一 个 HCOLOR = 
语句 定 出 。 

HPLOT TO X,Y 是 从 上 一 个 画 出 的 点 到 本 语句 
X,Y 座 标 规定 的 位 置 画 一 条 线 。 线 的 颜色 与 上 一 个 点 
的 颜色 相同 ,而 与 最 近 的 一 个 HCOLOR=- | 状态 无 关 。 

HPLOT Xl1,Y1 TO X2,Y2 TO X,,Y， 

HPLOT 可 以 扩大 ,只 要 在 屏幕 的 区 域 范围 以 内 ， 
每 行 BASIC 程序 不 超过 239 个 字符 即 可 。 每 次 画图 
时 , 它 都 从 上 一 个 X,Y 座 标 位 置 画 到 当前 的 X,Y 位 
置 。 只 用 这 样 一 个 简单 的 语句 , 便 可 画 非 常 有 趣 的 图 
形 。 例 如 ,要 在 屏幕 上 画 出 一 个 矩形 框 , 下 面 一 条 语句 
就 行 了 : 

HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0 

你 已 经 知道 学 习 HPLOT 的 最 好 的 方法 了 吧 ? 请 在 

你 的 蔷 果 机 前 坐 下 来 ,键入 HGR,HCOLOR = 1 和 
HPLOT , 画 出 你 想 画 的 内 容 。 然 后 , 换 一 个 颜色 再 画 ， 
接 下 去 练习 , 便 可 创作 你 自己 的 图 形 。 
除 画 点 、 线 以 外 , 你 还 可 用 Applesoft 的 一 
套 专门 语句 画 完 整 的 图 形 。 利 用 这 种 图 形 你 就 可 创作 
各 种 画面 ,如 高 分 辩 率 文本 字符 ,黄道 十 二 宫 的 图 形 符 
号 ,或 程序 中 需要 的 各 种 画面 。 

它 使 你 想到 Applesoft 图 形 是 由 一 个 个 点 组 成 的 ， 
这 些 图 形 点 旋 是 一 系列 定义 好 的 数字 。 它 们 组 合 在 一 
起 ,构成 一 张 由 数字 代号 表示 的 图 形 表 .图 形 表 的 编号 
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可 由 人 工 完成 ,但 人 工 编 太 繁 琐 , 最 好 还 是 让 蔷 果 机 来 
做 此 工作 。 大 多 数 编程 人 员 都 是 使 用 商业 上 出 售 的 软 
件 包 来 编制 图 形 表 , 它 们 称 为 图 形 表 编辑 器 。 
为 把 图 形 搬 上 屏幕 , 你 首先 得 明确 , 你 
的 图 形 表 已 在 内 存 中 ,而 且 Applesoft 要 知道 它 的 位 
置 。 由 于 图 形 表 是 由 机 读数 字 组 成 的 ,所 以 可 用 
BLOAD 命令 从 磁盘 文件 装 入 内 存 , 或 用 POKE 直接 送 
入 内 存 。 为 使 Applesoft 知道 它 的 位 置 ,把 它 的 起 始 地 
址 POKE 入 内 存 位 置 232 和 233。 然后 ,发 出 HGR 命 
令 , 用 HCOLOR 设置 颜色 ,用 DRAW 语句 把 图 形 画 在 
屏幕 上 。 
DRAW 命令 用 来 把 你 的 图 形 表 中 的 图 形 显 
示 在 高 分 辩 率 屏幕 上 。 命 令 的 格式 为 ; 

DRAW 图形 ATX,Y 
也 可 简化 为 ;DRAW 图形 

这 时 ,规定 的 图 形 将 出 现在 由 HPLOT 画 出 的 最 后 
一 点 的 位 置 上 。 

图 形 数 不 应 超出 你 的 图 形 表 所 规定 的 图 形 数 范 
围 。X,Y 是 要 画 的 图 形 的 屏幕 座 标 ,应 在 允许 的 范围 
之 内 。 在 执行 DRAW 命令 之 前 ,应 设置 颜色 .比例 及 转 
动 角度 。 

本 讲 所 附 LISTING 2 程序 清单 是 把 一 个 箭头 的 图 
形 表 POKE 入 内 存 , 并 用 DRAW 命令 画 在 屏幕 上 。 请 
键入 这 个 程序 ,用 下 述 命令 存 失 ， 

SAVE SHAPE. TABLE 

眼 尖 的 读者 可 能 注意 到 ,此 程序 中 有 两 个 新 的 语 
名 :SCALE 和 ROT 

SCALE=- 是 设置 要 画 的 图 形 的 比例 。 在 画图 形 之 
前 要 设置 它 的 比例 。 比 例 值 在 1 到 255 之 间 ,1 为 原型 
斥 寸 。 规定 SCALE== 后 面 的 数字 ,可 使 每 个 图 形 按 比 
例 扩大 。 - 

ROT= 是 设置 要 在 屏幕 上 画 出 的 图 形 的 转动 角 
度 。 它 也 要 在 画图 形 之 前 设 定 。 可 取 值 范围 在 0 和 255 
之 间 , 但 实际 转动 范围 是 在 0 一 63 之 间 (64 和 0 作用 
相同 ) 。 

如 果 你 规定 SCALE 王 1, 可 拥有 四 个 转动 角度 值 。 
ROT 王 16,32 或 48 将 使 图 形 转动 90 度 ,180 度 或 270 
度 ( 顺 时 针 方向 )。 当 然 64 和 0 一 样 ,它们 使 图 形 转 动 
的 角度 相同 。 

如 果 你 规定 ROT 一 2, 可 拥有 八 个 转动 角度 ,每 次 
45 度 。 假 若 你 设置 的 ROT=- 为 不 认可 值 , 屏 幕 上 将 画 
出 下 一 个 更 小 的 认可 转动 角度 。 请 你 改动 第 50 行 和 
60 行 的 值 , 实 际 练习 转动 角度 和 比例 。 

如 果 用 XDRAW 来 代替 DRAW ,那么 , 画 出 的 图 
形 的 颜色 将 与 屏幕 位 置 上 原 有 图 形 的 颜色 互补 。 换 名 
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话说 , 若 此 区 域 为 黑色 , 画 出 的 图 形 则 为 白色 。 同 样 , 蓝 
和 绿 互 补 , 橙 和 紫 互 补 。 反 重 执行 XDRAW 语句 是 一 
个 画图 形 并 抹 掉 图 形 的 好 方法 。LISTING 3 就 是 利用 
XDAW 使 一 个 箭头 图 形 掠 过 屏幕 的 动画 技法 。 请 键入 
它 , 并 用 下 述 命令 存盘 :SAVE ARROW 

好 ,你 已 经 进入 图 形 世 界 了 ,尽管 还 只 是 晴 晓 点 水 
式 的 一 点 点 .只 要 你 花 一 些 时 间 练 习 两 种 图 形 方式 , 便 
会 有 一 些 佐 有 趣味 的 东西 进入 你 的 程序 宝库 中 。 若 要 
深入 了 解 绘图 , 则 还 需 进 一 步 努力 。 
LISTING 1 : COLORED. BLOCKS 
10 GR : COLOR 王 1 
20 FOR X=-0ToO 39 
30 FOR Y 一 0 TO 39 
40 PLOT X,Y 
50 C=C 二 1 
60 COLOR 一 C 
70 IF C 15 THEN C=0 
80 NEXTY 
90 NEXT X 
100 END 


LISTING 2 : SHAPE.TABLE 


10 GOSUB 140 : REM POKE SHAPE TABLE 

20 HOME 

30 HGR 

40 HCOLOR 一 3 

50 SCALE 一 1 

60 ROT=0 

70 X=10 

80 立 一 50 

90 DRAW 1 AT X,Y 

100 VTAB 22 : PRINT“PRESS RETURN RETURN TO 
QUIT” 

110 GET K 吊 

120 TEXT : HOME : END 

130 REM POKE IN SHAPE TABLE 

140 FOR I 一 0 TO 34 : READ ML : POKE 768 十 I,ML 

: NEXTI 

150 DATA 1,0,4,0,36,36,36,60,63,63,8,12,12， 
了 2512712712312，2152135213721521521721.62 

160 DATA 63,55,54,54,54,63,63,39,0 

170 POKE 232,0 : POKE 233,3 : REM POKE SHAPE 
TABLE POINTERS 

180 RETURN 


LISTING 3 : ARROW 

10 GOSUB 200 : REM POKE SHAPE TABLE 
20 HOME 

30 HGR 

40 HCOLOR 一 3 





50 SCALE 一 1 

60 ROT 王 16 : REM POINT RIGHT 

70 X 王 10 

80Y 一 50 

90 XDRAW 1 AT X,Y 

100 FOR I= 王 1 TO 24 

110 FOR T=1 TO 150 : NEXT T : REM SHORT DE- 
LAY 

120 XDRAW 1 AT X,Y 

130 X 王 X 十 10 

140 XDRAW 1 ATX,Y 

150 NEXT I 

160 VTAB 22 : PRINT“PRESS RETURN TO QUIT?” 
170 GET 开 书 


用 和 市委 市 条 让 小 村 小雪 小 雪 几 村 让 村 省 守 用 和 川 要 小 委 玫 各 放生 小 全 小 二 小 作 小 二 小 二 


“ 趣味 程序 ， 
类 寺 


广州 ” 梁 兆 桦 
本 程序 是 模拟 二 人 用 手枪 对 射 的 游戏 程序 ,运行 

时 ,每 人 有 20 发 子弹 和 一 支 手枪 ,左边 用 “Q”“Z”、 

“A”ESC 键 控 制 它 的 上 、 下 移动 .停止 和 开 枪 ,右边 用 

“P”“/”“;2”、RETURN 键 控制 自己 的 上 .下 移动 、 停 

止 和 开 枪 。 屏 幕 下 方 有 “)” 号 和 ”“(? 号 各 20 个 ,分 别 表 

示 左 . 右 游 戏 者 现存 的 子弹 数 ,每 开 一 枪 就 减少 一 个 。 

屏幕 中 间 随 机 产生 一 些 障碍 物 ,子弹 打 中 会 它 会 一 起 

消失 。 子 弹 与 子弹 相遇 后 互 不 干扰 ,各 自 沿 原来 的 方向 

继续 前 进 . 其 中 一 方 的 子弹 打 尽 就 不 能 开 枪 了 ,只 有 双 

方 的 子弹 都 打 尽 时 ,才能 各 补充 20 发 子弹 。 如 果 其 中 

一 方 被 击 中 ,计算 机 就 会 打印 :“ 左 ( 右 ) 边 的 游戏 者 输 

子 !2" 并 响 铃 一 声 。 然 后 游戏 者 选择 :您 们 要 再 玩 一 次 

吗 ??。 在 游戏 过 程 中 , 开 枪 或 子弹 打 中 障碍 物 都 有 响 

声 。 

10 FOR WwW=1TO 90 STEP 3 : POKE 768 十 (W-1)/3,VAL 
(MID$ (“16000014101619202410500116200807203 
216825214104819210404823620220824320103214423 
4048227096”,W,3)) : NEXT 

20 CLEAR : GR : COLOR 王 15 : FOR I=-7 TO 31 STEP 6 
FOR J 一 0 TO 9: D=RND(1) * 40 : HLIN I,I 十 1 AT D 

-NEXT :G$=G$ 十 ”HH$ 王 H$ 十 “((((2”: 
NEXT I: W 有 (0) 一 “left”: W 吊 (1) 一 “right?” 

30 M 和 =G$ :N 和 =H$ :HOME :M 王 20:N 一 M: 
PRINT M 和 $IN$ 

40 P 王 PEEK(49152) : POKE 49168,0 : U 王 Ux (P<< 之 193 
AND P 一 >209 AND P 一 >>218 AND S AND S<35) 十 (P 
一 218 AND S<<35)-(P 王 209 AND S) : V 一 V * (P 一 > 
175 AND P 一 >>187 AND P 一 之 208 AND R AND R<35) 
十 (P=175 AND R<<35)-(P 一 208 AND R) : S 王 S 十 U : 





180 TEXT : HOME : END 

190 REM POKE IN SHAPE TABLE 

200 FOR' I=0 TO 34 : READ ML : POKE 768 十 LI,ML 
: NEXTI 

210 DATA 1,0,4,0,36,36,36,60,63,63,8,12,12， 
12,12,12,12,12,21,21,21,21,21,21,21,62 

220 DATA 63,55,54,54,54,63,63,39,0 

230 POKE 232,0 : POKE 233,3 : REM POKE SHAPE 
TABLE POINTERS 


240 RETURN 
冯 和 静 

编译 自 :(NIBBLE》1989 年 第 九 期 ,第 十 期 

(全 文 完 ) 


省 条 小 委 小 和 川村 小 委 中 和 中 全 川村 中村 川村 几 寺 小 和 用 村 由 二 小 和 路 全 小 全 小 全 路 全 中 全 小 全 


有 R 王 了 R 十 V 
50 COLOR=0: VLIN 0,39 AT 1 : VLIN 2,37 AT 2 : VLIN 
2,37 AT 37 : VLIN 0,39 AT 38 : COLOR 王 1 : VLIN SS 
十 4AT 1T:PLOT 2,S 十 2 : COLOR 王 14: VLIN R,R 十 4 
AT 38 : PLOT 37,R 十 2 : IF P<141 OR P 之 155 THEN 
80 
60 IF P 王 155 AND M THEN CALL 768 : A(LL) 王 1 : B(L) 一 
S 十 2 :一 (L 十 1) * (L<6) : M$ 王 RIGHT$ (M$， 
19) 十 “”:M 王 M 一 1 : HOME : PRINT M IN 和 $ : GOTO 
80 ， 
70 IF P=141 AND N THEN CALL 768 : XCK) 王 38 : YCK) 
一 R 十 2 : K 一 (K 十 1) * (K<6):N$ 一“” 十 LEFT$ (CN 
$ ,19)“ N 王 N-1 : HOME : PRINT M 和 $ IN 和 $ 
80 FOR T=0TO 6:A=AGCT) :B 王 BCT) : IF A>0 THEN 
GOLOR 王 0 : HLIN 3,AATB:AGCT) 王 (A 十 6) *(A<< 
33) 
90 IFA =0THEN 120 
100 COLOR 王 1 : PLOT A,B : PLOT 2,S 十 2 : C 王 SCRN(A 
十 1,B) : IF C= 王 15 THEN FOR Q=0 TO 20 : 0O 王 PEEK 
(49200) : NEXT : COLOR 王 0 : HLIN A,A 十 1 AT B : 
A(T) 王 0 : GOTO 120 
110 .IF A 一 37 AND CTHEN Z 王 1 : GOTO 170 
120 X=XCT) :Y=Y(CT) : IF X THEN COLOR 王 0 : HLIN 
X,36 AT Y :XCT) 一 (X-6) *〈X 之 6) 

130 IF X 王 0 THEN 160 

140 COLOR 王 14 : PLOT X,Y : PLOT 37,R 十 2 : D 王 SCRN 
(X-l,Y) : IFD=15 THEN FOR Q=0 To 20 : 0== 
PEEK(49200) : NEXT : COLOR 王 0 : HLIN X-1,X AT 
Y:XCT)= 王 0:GOTO 160 

150 IF X= 王 2 AND D THEN 170 

160 NEXTT:ONGM 二 N=0) 十 1 GOTO 40,30 

170 “HOME : PRINT"“player on”; W 和 (Z );“lose1”; CHR 

$ (7) : PRINT : PRINT“Will you play again? (Y/N)”; 
: POKE 49168,0 : GET T$ : IFT$=“Y”ORTH 和 = 
“Y”THEN 20 : 1990,7，,4 
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呈 下 
【II 
HG286 是 潍坊 计算 机 公司 借鉴 国内 外 各 
种 优秀 同类 机 型 ,设计 生产 的 新 一 代 高 档 微 
机 。 主 机 大 量 采 用 门 阵列 技术 ,具有 集成 度 
高 `. 运 算 速 度 快 .存储 容量 大 .扩充 能 力 强 、 系 
统 可 靠 、 软 件 丰 富 等 显著 特点 。 软 、 硬 件 与 长 
城 286、IBM PC/AT 全 兼容 ,上 且 功能 优 于 AT 
机 。 可 广泛 应 用 于 商业 、 教 育 、 银 行 、 0 
制 、 办 公 自 动 化 等 领域 。 

HG286 主机 频率 为 8MHz 或 12MHz 软件 
或 硬件 选择 ,主板 内 存 容 量 有 512KB,640KB， 
1MB ,4MB 五 种 选择 ,如 用 户 需 要 内 存 可 扩充 
至 16MB ,而 4MB 的 内 存 容 量 对 绝 大 多 数 用 户 
已 足够 实用 ,主机 软 硬 盘 的 安装 也 很 灵活 , 硬 
磁盘 为 40MB 的 高 速 硬 益 , 软 磁盘 除 能 连接 一 
360KB ,1. 2MB 软盘 外 ,还 能 连接 一 720KB，1. 
44M3. 5 英 本 软盘 驱动 器 。 另 外 机 内 还 有 一 个 
安装 数据 合式 磁带 机 的 位 置 ,满足 了 用 户 扩 
充 盒 带 的 要 求 。 系 统 MO 扩充 槽 共 8 个 ,与 
IBM PC/AT 完全 一 样 。 显 示 系 统 采用 EGA 
卡 , 显 示 密 度 从 320x 200 到 800x 600 可 选 ， 
并 支持 CGA,VGA。 如 配置 成 多 用 户 系 统 , 更 
能 发 挥 其 强大 功效 。 

HG286 的 软件 非常 丰富 ,主要 配 有 : 

操作 系统 :DOS3. 2,3. 2XENIXYV 等 
汉字 系统 :CCDOoS4. 0 UCDOS EGA CCDos 等 

数 据 库 ; dBASE 了 dBASE H PLUS 
FOXBASE+ 


| 



































高 级 语言 :TURBO PASSCAL MS 一 C 5. 0 
FORTRAN 3. 2 等 
其 它 支 持 软 件 : AUTOCAD PC 一 TooL 
COPYWRITE PE 与 XE 编辑 软件 等 
HG286 基本 配置 : 
CPU: 80286(16MHz/20MH; ) RAML， 
1MB ,可 选 2MB ,4MB 
打印 机 并 行 口 :1 个 
接口 :2 个 (RS 一 232C) 
360KB 十 1. 2MB 双 软 拖 高 速 高 磁 3. 
5 英寸 40MB 硬盘 
800 久 600 高 分 辨 度 彩 色 显 示 器 EGA 
卡 或 长 城 286 兼容 的 CH 卡 
101 键盘 DOS 系统 软件 
HG286tfqpwrhh ， 
软盘 驱动 器 
MODEM 卡 各 种 网 络 卡 
终端 :24 针 高 打印 机 等 。 
HG286 主要 性 能 技术 指标 
GPU :80286 16MHzak20MHz , 零 等 待 
主板 内 ' 存 1IMB 量 大 4MB 物理 空间 
在 保护 方式 下 内 存 可 扩充 至 16MB8 个 I/ 
O 扩充 槽 位 
24 位 地 址 与 
六 级 中 断 
7 个 DMA 通道 


异步 通讯 


16 位 数据 通道 能 力 十 


3 个 可 编程 时 种 


EPEtitittrtrtrtretrtretretretrereretrtrererertreeeerereeeeeeer 


软 、 硬 件 交 流 简 讯 


由 北京 计算 机 五 厂 、 北 京 计 算 机 软件 中 
心 及 《中 华 学 习 机 》 杂 志 等 联合 组 织 的 首届 
CEC 一 I\APPLE 及 其 兼容 机 最 新 软 、 硬 件 展示 
交流 嫩 天 坛 学 习 机 展示 会 将 于 1990 年 12 月 
上 自在 北京 举行 。 此 次 会 上 将 展示 专 供 CEC 一 
志 APPLE 及 各 类 兼容 机 使 用 的 EPROM 仿真 
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器 .电脑 可 预 置 计 数 器 、 能 输入 五 笔 字 型 汉字 
及 进行 中 西 文 编辑 的 CPC 卡 .ROM 改写 (可 
使 CEC 机 成 为 一 台 四 通 文字 处 理 机 ) 等 最 新 
硬件 ,还 将 有 大 量 CEC 一 I.APPLE 及 其 兼容 机 
软件 参加 展示 交流 。 此 次 活动 将 得 到 北京 计 
算 机 五 厂 天 坛 学 习 机 的 大 力 支持 。 


全 光 386 


功能 卓越 


尽 在 一 流 


潍坊 计算 机 公司 微电脑 三 吸收 最 新 电脑 成 果 ,推出 的 386 产品 ,将 使 您 获得 最 大 的 满足 。 





机 
微 处 理 器 
实测 速度 
高 速 缓冲 内 存 
标准 内 存 
内 存 扩展 
I/O 扩 槽 
硬盘 
串 / 并 行 接口 
键盘 
显示 器 


机 箱 
操作 系统 


价格 (元 ) 
(批量 面议 ) 


华 光 386X 一 16 
INTEL 80386SX 一 16 


20MHZ, 


2MB 
16MB 
16B、 8B(AT/XT 兼容 ) 
360KB 十 1. 2MB 
40MB(3. 5") 
2/1 


MCK 一 101(WITH MOUSE) 


14"” 800X600(EGA) 


卧 / 塔 式 


DOS3. 3 


27500 





华 光 386DX 一 33 


INTEL 80386DX 一 33 


64KB 

4MB 

16MB 
32B、16B、8B(AT/XT 兼容 ) 

1. 2MB 十 1. 44MB 
80MB(3. 5") 
2/1 

MCK 一 101(WITH MOUSE) 


14" 1024 又 768 
(VGAA CARD WITH 512KB RAMD) 


塔 式 


DOS3. 3、XENIX 


39500 











选 配件 各 种 协 处 理 器 .显示 器 、 显 示 卡 \ 打 印 机 ,各 种 容量 软 、 硬 盘 及 各 种 软件 


华 光 世界 ”同时 给 您 诸如 下 列 领 域 的 享受 


@@ 网 络 工作 站 @@ 多 用 户 系统 
@@ 通 信 工 作 站 @@wY 一 3 型 轻 印 刷 系统 
@cAD 工作 站 @@ 大 型 表格 处 理 .统计 计算 及 管理 系统 


华 光 “与 您 携手 共 创 未 来 
地 址 :山东 滩 坊 市 东风 大 街 60 号 (潍坊 计算 机 公司 微电脑 厂 ) 
电话 :226921 一 210 或 225178 
邮政 编码 ;261041 电报 :0308 
电 传 :324304 CCWEF CN 传真 :0536225397 
联系 人 :和 孙 延 松 


汪 不 业 丰 业 丰 业 全 二胡 业 丰 业 丰 业 不 业 丰 业 丰 业 丰 七 全 业 丰 业 丰 N 


华 光 v 型 
人 简 


个 业 个 业 个 业 丰 忆 丰 凿 个 业 丰 业 人 丰富 Y 丰 业 丰 忆 个 业 








ZXSZY 不 


UP 


可 
本 


ff 


xD 


你 业 个 业 个 业 企 业 个 业 个 业 个 业 个 


华 光电 子 出 版 系统 历经 I 至 型 四 代 的 不 断 完 善 
和 发 展 ,已 达到 国内 外 先进 水 平 ,使 我 国 新 闻 、 出 版 印 
刷 和 办 公 自 动 化 领域 逐步 取代 铅 排 和 手动 照排 的 革命 
性 变化 成 为 真正 的 现实 ,在 此 基础 上 ,潍坊 计算 机 公司 
站 在 文字 信息 处 理 技术 的 前 沿 , 又 对 华 光 系 统 本 身 进 
行 了 一 次 根本 性 的 革新 ,自行 研制 开发 了 独 具 特 色 的 
华 光 系 列 新 一 代 产 品 系 
华 光 V 型 电子 出 版 系统 以 在 主机 上 增加 采用 国际 
RISC 最 新 技术 制 成 的 光栅 图 象 文字 处 理 器 (RIP) 取 代 
了 华 光 系统 原 有 的 独立 设置 的 照排 控制 机 (TC) , 它 兼 
容 了 华 光 型 的 全 部 功能 是 有 独特 的 创新 。 因 而 使 华 
光 V 型 有 更 高 的 性 能 价格 比 。 即 更 加 可 靠 易于 维修 的 
硬件 结构 ;更 加 灵活 方便 高 效 的 排版 软件 ;更 加 优美 多 
样 的 字体 字号 ;更 好 的 环境 适应 性 ;更 小 巧 的 体积 ;更 
加 低廉 的 价格 。 正 是 这 种 低 价格 高 性 能 ,使 华 光 系 统 从 
新 闻 、 出 版 ,印刷 和 高 级 办 公 自 动 化 走向 社会 各 个 领域 
仅 体 字 引 浴 坊 计算 机 公司 更 快 、 更 先进 、 更 精确 
的 字模 制作 技术 ,为 华 光 V 型 电子 出 版 系统 提供 了 国 
内 外 任何 一 家 激光 照排 系统 都 不 可 比拟 的 种 类 最 多 ， 
质量 最 好 的 多 种 排版 实用 字体 。 
简体 字体 : 报 宋 、 仿 宋 ` 黑 体 、 楷 体 、 书 宋 、 小 标 宋 、 
行 楷 、 魏 碑 、 隶 书 . 小 姚 体 , 大 黑 . 大 标 
宋 . 中 长 宋 、. 美 黑 . 黑 变 体 、 圆 头 黑 . 日 
文明 体 、 朝 文明 体 、 朝 文 黑体 等 
灶 体 字体 : 报 宋 、 书 宋 、 黑 体 、 楷 体 、 仿 宋 、 标 题 宋 、 
和 全 和 生 同和 际 4 且 国人 


英 、. 日 、 俄 法、 德 ,希腊 等 多 国外 
文 及 科技 符号 。 
华 光 V 型 的 RIP 的 文字 无 级 变 倍 功能 可 生成 从 小 
七 号 字 直到 整个 版 面 大 小 的 任意 长 扁 字 。 
系列 软件 | 党 包公 司 总 结 华 光 系统 软件 
开发 的 经 验 ,吸取 国内 外 其 它 厂 家 同类 软件 的 长 处 , 采 
用 国际 最 新 编程 技术 和 工具 ,开发 了 与 华 光 TV 型 软件 
完全 兼容 的 华 光 V 系列 软件 ,包括 : 
批 处 理 书 刊 排版 软件 
交互 式 、 批 处 理 双轨 书 版 排版 软件 
交互 式 科技 书 版 排版 软件 
交互 式 表格 排版 软件 
交互 式 大 屏幕 报 版 组 版 软件 
交互 式 中 屏幕 报 版 组 版 软件 
交互 式 广 告 排版 软件 
交互 式 四 棋 一 牌 排版 软件 
交互 式 任 意图 形 处 理 软 件 
交互 式 补 字 造 字 软 件 
批 处 理 杂志 排版 软件 
华 光 系 统 远程 传 版 软件 
华 光 系统 情报 检索 软件 
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华 光 系统 局 域 网 络 软件 

此 心 硬件 | 华 光 v 型 电子 出 版 系统 主机 采用 国际 
流行 微机 。 

核心 采用 国际 RISC 最 新 技术 制 成 的 光栅 图 象 文 
字 处 理 器 (RIP)。 它 以 独特 的 集成 压缩 新 技术 使 华 光 
系统 原 有 的 照排 控制 机 高 度 集成 在 主机 系统 中 。 由 于 
在 设计 过 程 中 完全 采用 国际 最 新 技术 标准 ,因而 价格 
更 低 、 可 靠 性 更 高 ,安装 维护 更 方便 。 

RIP 采用 了 全 新 的 技术 设计 方案 ,因而 使 华 光 系 
统 功能 更 强 、 输 出 质量 更 高 ,可 以 非常 方便 地 支持 各 种 
精度 的 输出 设备 。 

萌出 设备 华 光 v 型 目前 可 联接 的 输出 设备 有 : 

喷 墨 式 打印 机 

激光 印字 机 :佳能 LBP-SX(A4 幅面 ) 

LBP-ST(B4 幅面 ) 
分 辨 率 均 为 400 线 /英寸 等 。 
激光 照排 机 : 原 华 光 系 统 的 各 种 十 六 开 ,. 八 开 、 四 
开 激光 照排 机 , 均 可 任 选 。 分 辨 率 为 
742 线 / 英 寸 .1016 线 /英寸 等 。 

潍坊 计算 机 公司 照排 系统 公司 在 已 取得 的 众多 荣 
誉 和 良好 的 经 济 效益 面前 ,将 始终 如 一 的 坚持 “质量 第 
一 ,用 户 至 上 ”的 方针 .以 一 流 的 科研 水 平 ,一 流 的 产品 
质量 ,一 流 的 技术 服务 ,向 社会 各 界 做 出 新 的 奉献 。 


选择 了 华 光 V 型 ,你 我 都 自豪 ! 
潍坊 计算 机 公司 照排 系统 公司 


地 址 :山东 潍坊 东风 大 街 60 号 
电话 :225176 226821-235,248 
电 挂 :0308 
传 ” 真 :(0536)225397 
邮 码 :261041 
联系 人 : 董 瑛 王 学 干 
北京 办 事 处 
地 址 :北京 西 外 大 街 半 截 塔 二 
元 一 层 
电话 :8412244-279 
联系 人 : 秦 润 和 
南方 办 事 处 
地 址 :广州 市 广州 大 道中 289 号 
南方 日 报 印刷 厂 
电话 :763998 一 4037 
联系 人 : 尹 建 平 “ 李 广 文 
上 海 联 络 处 
地 址 :上 海 市 虎 丘 路 20 号 文汇报 印刷 厂 
电话 :3211410- 华 光 排 照 车 间 
联系 人 : 徐 勤 武 
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